Changeset 517 for LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

Timestamp:

Apr 16, 2004, 5:43:38 PM (20 years ago)

Author:

lmdzadmin

Message:

Inclusion des modifications de O. Boucher et de J. Quaas pour le calcul des
premiers effets directs et indirects dus aux aerosols
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90 (modified) (5 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

@@ -5 +5 @@
   subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, &
  &                     fact_cldcon, facttemps,ok_newmicro,iflag_cldcon, &
- &                     ratqsbas,ratqshaut,if_ebil)
+ &                     ratqsbas,ratqshaut,if_ebil, &
+ &                     ok_ade, ok_aie, &
+ &                     bl95_b0, bl95_b1)
 
    use IOIPSL
@@ -29 +31 @@
 ! ok_mensuel: sorties mensuelles
 ! ok_instan:  sorties instantanees
-
+! ok_ade, ok_aie: apply or not aerosol direct and indirect effects
+! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc 
+!
 
 
@@ -35 +39 @@
   character (len = 6)  :: ocean
   logical              :: ok_veget, ok_newmicro
-  logical              :: ok_journe, ok_mensuel, ok_instan
+  logical              :: ok_journe, ok_mensuel, ok_instan        
+  LOGICAL              :: ok_ade, ok_aie
+  REAL                 :: bl95_b0, bl95_b1
   real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut
   integer              :: iflag_cldcon, if_ebil
@@ -89 +95 @@
   ok_instan = .false.
   call getin('OK_instan', ok_instan)
+!
+!Config Key  = ok_ade
+!Config Desc = Aerosol direct effect or not?
+!Config Def  = .false.
+!Config Help = Used in radlwsw.F
+!
+  ok_ade = .false.
+  call getin('ok_ade', ok_ade)
+
+!
+!Config Key  = ok_aie
+!Config Desc = Aerosol indirect effect or not?
+!Config Def  = .false.
+!Config Help = Used in nuage.F and radlwsw.F
+!
+  ok_aie = .false.
+  call getin('ok_aie', ok_aie)
+
+!
+!Config Key  = bl95_b0
+!Config Desc = Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+!Config Def  = .false.
+!Config Help = Used in nuage.F
+!
+  bl95_b0 = 2.
+  call getin('bl95_b0', bl95_b0)
+
+!Config Key  = bl95_b1
+!Config Desc = Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+!Config Def  = .false.
+!Config Help = Used in nuage.F
+!
+  bl95_b1 = 0.2
+  call getin('bl95_b1', bl95_b1)
+
+!
 !
 !Config Key  = if_ebil
@@ -554 +596 @@
   write(numout,*)' ksta_ter = ',ksta_ter 
   write(numout,*)' ok_kzmin = ',ok_kzmin 
+  write(numout,*)' ok_ade = ',ok_ade
+  write(numout,*)' ok_aie = ',ok_aie
+  write(numout,*)' bl95_b0 = ',bl95_b0
+  write(numout,*)' bl95_b1 = ',bl95_b1
   write(numout,*)' lev_histhf = ',lev_histhf 
   write(numout,*)' lev_histday = ',lev_histday