Changeset 857 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/conf_phys.F90

Timestamp:

Oct 30, 2007, 4:58:43 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Inclusion d'un parametre aer_type qui permet de définir le type d'aerosols
lus dans readsulfate (pre-industriels, naturels ou scenario). SD
LF

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/conf_phys.F90

@@ -56 +56 @@
   logical,SAVE        :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp, ok_hf_omp        
   LOGICAL,SAVE        :: ok_ade_omp, ok_aie_omp
+  character (len = 8),SAVE  :: aer_type_omp
   REAL,SAVE           :: bl95_b0_omp, bl95_b1_omp
   REAL,SAVE           :: freq_ISCCP_omp, ecrit_ISCCP_omp
@@ -165 +166 @@
   ok_aie_omp = .false.
   call getin('ok_aie', ok_aie_omp)
+
+!
+!Config Key  = aer_type
+!Config Desc = Use a constant field for the aerosols
+!Config Def  = scenario
+!Config Help = Used in readsulfate.F
+!
+  aer_type_omp = 'scenario'
+  call getin('aer_type', aer_type_omp)
 
 !
@@ -828 +838 @@
     ok_ade = ok_ade_omp
     ok_aie = ok_aie_omp
+    aer_type = aer_type_omp
     bl95_b0 = bl95_b0_omp
     bl95_b1 = bl95_b1_omp
@@ -906 +917 @@
   write(numout,*)' ok_ade = ',ok_ade
   write(numout,*)' ok_aie = ',ok_aie
+  write(numout,*)' aer_type = ',aer_type
   write(numout,*)' bl95_b0 = ',bl95_b0
   write(numout,*)' bl95_b1 = ',bl95_b1