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

Timestamp:

Apr 30, 2008, 3:14:57 PM (17 years ago)

Author:

lsce

Message:

ACo+JG

Ajout du flag aerosol_couple :
false=lecture des sulfates dans un fichier(par defaut) - configuration existante
true=calcul des aerosol par INCA

File:

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

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

@@ -9 +9 @@
 !IM&                   ratqsbas,ratqshaut,ip_ebil_phy, &
  &                     ratqsbas,ratqshaut, &
- &                     ok_ade, ok_aie, &
+ &                     ok_ade, ok_aie, aerosol_couple, &
  &                     bl95_b0, bl95_b1,&
  &                     iflag_thermals,nsplit_thermals)
@@ -47 +47 @@
   logical              :: ok_veget, ok_newmicro
   logical              :: ok_journe, ok_mensuel, ok_instan, ok_hf
-  LOGICAL              :: ok_ade, ok_aie
+  LOGICAL              :: ok_ade, ok_aie, aerosol_couple
   REAL                 :: bl95_b0, bl95_b1
   real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut
@@ -55 +55 @@
   logical,SAVE              :: ok_veget_omp, ok_newmicro_omp
   logical,SAVE        :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp, ok_hf_omp        
-  LOGICAL,SAVE        :: ok_ade_omp, ok_aie_omp
+  LOGICAL,SAVE        :: ok_ade_omp, ok_aie_omp, aerosol_couple_omp
   character (len = 8),SAVE  :: aer_type_omp
   REAL,SAVE           :: bl95_b0_omp, bl95_b1_omp
@@ -166 +166 @@
   ok_aie_omp = .false.
   call getin('ok_aie', ok_aie_omp)
+
+
+!
+!Config Key  = aerosol_couple
+!Config Desc = read aerosol in file or calcul by inca
+!Config Def  = .false.
+!Config Help = Used in physiq.F
+!
+  aerosol_couple_omp = .false.
+  CALL getin('aerosol_couple',aerosol_couple_omp)
 
 !
@@ -849 +859 @@
     ok_ade = ok_ade_omp
     ok_aie = ok_aie_omp
+    aerosol_couple=aerosol_couple_omp
     aer_type = aer_type_omp
     bl95_b0 = bl95_b0_omp
@@ -929 +940 @@
   write(numout,*)' ok_ade = ',ok_ade
   write(numout,*)' ok_aie = ',ok_aie
+  write(numout,*)' aerosol_couple = ', aerosol_couple
   write(numout,*)' aer_type = ',aer_type
   write(numout,*)' bl95_b0 = ',bl95_b0