SURFEX v7.3
General documentation of Surfex
|
00001 ! ##################### 00002 MODULE MODD_CH_ISBA 00003 ! ###################### 00004 ! 00005 !! 00006 !! PURPOSE 00007 !! ------- 00008 ! 00009 ! 00010 ! 00011 !! 00012 !!** IMPLICIT ARGUMENTS 00013 !! ------------------ 00014 !! None 00015 !! 00016 ! 00017 !! AUTHOR 00018 !! ------ 00019 !! P. Tulet *Meteo France* 00020 !! 00021 !! MODIFICATIONS 00022 !! ------------- 00023 !! 16/07/03 (P. Tulet) restructured for externalization 00024 !------------------------------------------------------------------------------ 00025 ! 00026 !* 0. DECLARATIONS 00027 ! ------------ 00028 ! 00029 IMPLICIT NONE 00030 ! 00031 REAL, SAVE :: XRCSANDSO2 ! SO2 sand surface resistance 00032 REAL, SAVE :: XRCSANDO3 ! O3 sand surface resistance 00033 REAL, SAVE :: XRCCLAYSO2 ! SO2 clay surface resistance 00034 REAL, SAVE :: XRCCLAYO3 ! O3 clay surface resistance 00035 REAL, SAVE :: XRCSNOWSO2 ! SO2 snow surface resistance 00036 REAL, SAVE :: XRCSNOWO3 ! O3 snow surface resistance 00037 REAL, SAVE :: XLANDREXT ! land type for external leaf resistance 00038 ! 00039 END MODULE MODD_CH_ISBA 00040 00041