Changeset 480 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Oct 31, 2003, 9:56:01 AM (21 years ago)

Author:

lmdzadmin

Message:

Possible incoherence entre co2_ppm et RCO2 et probleme de definition des
variables des gaz (definies en double ce qui ne plait pas a getin)
LF

File:

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

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

@@ -40 +40 @@
 ! Local
   integer              :: numout = 6
+  real                 :: zzz
 
 !
@@ -159 +160 @@
   RCO2 = co2_ppm * 1.0e-06  * 44.011/28.97 ! pour co2_ppm=348.
 
-  call getin('RCO2', RCO2)
+!!  call getin('RCO2', RCO2)
 !!
 !Config Key  = RCH4
@@ -174 +175 @@
 ! RCH4 = 1.72E-06* 16.043/28.97
 !OK call getin('RCH4', RCH4)
-  CH4_ppb = 1650.
-  call getin('CH4_ppb', CH4_ppb)
+  zzz = 1650.
+  call getin('CH4_ppb', zzz)
+  CH4_ppb = zzz
   RCH4 = CH4_ppb * 1.0E-09 * 16.043/28.97
 !!
@@ -191 +193 @@
 ! RN2O = 310.E-09* 44.013/28.97
 !OK  call getin('RN2O', RN2O)
-  N2O_ppb=306.
-  call getin('N2O_ppb', N2O_ppb)
+  zzz=306.
+  call getin('N2O_ppb', zzz)
+  N2O_ppb = zzz
   RN2O = N2O_ppb * 1.0E-09 * 44.013/28.97
 !!
@@ -202 +205 @@
 !
 !OK RCFC11 = 280.E-12* 137.3686/28.97
-  CFC11_ppt = 280.
-  call getin('CFC11_ppt',CFC11_ppt)
+  zzz = 280.
+  call getin('CFC11_ppt',zzz)
+  CFC11_ppt = zzz
   RCFC11=CFC11_ppt* 1.0E-12 * 137.3686/28.97
 ! RCFC11 = 1.327690990680013E-09
@@ -215 +219 @@
 !
 !OK RCFC12 = 484.E-12* 120.9140/28.97
-  CFC12_ppt = 484.
-  call getin('CFC12_ppt',CFC12_ppt)
+  zzz = 484.
+  call getin('CFC12_ppt',zzz)
+  CFC12_ppt = zzz
   RCFC12 = CFC12_ppt * 1.0E-12 * 120.9140/28.97
 ! RCFC12 = 2.020102726958923E-09