Changeset 1565 for LMDZ5/trunk/libf/phylmd/radiation_AR4_param.F90

Timestamp:

Aug 31, 2011, 2:53:29 PM (13 years ago)

Author:

jghattas

Message:

Added interface with chemestry model REPROBUS :

• Compile LMDZ together with Reprobus code (dependecies in both directions) and cpp key REPROBUS :

./makelmdz_fcm -ext_src my_path_to_reprobus -cpp REPROBUS ...

• For running, add type_trac=repr in run.def.

/Marion Marchand, JG

File:

• LMDZ5/trunk/libf/phylmd/radiation_AR4_param.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/radiation_AR4_param.F90

@@ -159 +159 @@
       0.90811926E+01,  0.75073923E+02,  0.24654438E+03,  0.39332612E+03,  0.29385281E+03,  0.89107921E+02 /) , (/ 6,6 /) )
 
-      REAL*8, dimension(2), parameter :: RSUN = (/ 0.441676 , 0.558324 /)
+! If running with Reporbus type_trac=repr, values of RSUN might be overritten in radiation_AR4
+      REAL*8, dimension(2) :: RSUN = (/ 0.441676 , 0.558324 /)
       REAL*8, dimension(2,6), parameter :: RRAY = reshape ( &
          (/ .428937E-01, .697200E-02,&