Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90

Timestamp:

Jul 28, 2024, 10:25:12 PM (3 months ago)

Author:

abarral

Message:

Put gradsdef.h, tracstoke.h, clesphys.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90

@@ -7 +7 @@
   USE dimphy
   USE lmdz_print_control, ONLY: lunout
+  USE lmdz_clesphys
+
   IMPLICIT NONE
 
@@ -48 +50 @@
   ! IM ctes ds clesphys.h   REAL(KIND=8) RCO2  ! concentration CO2 (IPCC:
   ! 353.E-06*44.011/28.97)
-  include "clesphys.h"
 
   REAL (KIND=8) ppsol(kdlon) ! SURFACE PRESSURE (PA)
@@ -313 +314 @@
   USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
     rtdumg, rth2o, rtumg
+  USE lmdz_clesphys, ONLY: RCO2
+
   IMPLICIT NONE
   include "radepsi.h"
@@ -321 +324 @@
 
   REAL (KIND=8) psct
-  ! IM ctes ds clesphys.h   REAL(KIND=8) RCO2
-  include "clesphys.h"
+
   REAL (KIND=8) pcldsw(kdlon, kflev)
   REAL (KIND=8) ppmb(kdlon, kflev+1)
@@ -2126 +2128 @@
   USE dimphy
   USE lmdz_print_control, ONLY: lunout
+    ! IM ctes ds clesphys.h
+  ! REAL(KIND=8) RCO2   ! CO2 CONCENTRATION (IPCC:353.E-06* 44.011/28.97)
+  ! REAL(KIND=8) RCH4   ! CH4 CONCENTRATION (IPCC: 1.72E-06* 16.043/28.97)
+  ! REAL(KIND=8) RN2O   ! N2O CONCENTRATION (IPCC: 310.E-09* 44.013/28.97)
+  ! REAL(KIND=8) RCFC11 ! CFC11 CONCENTRATION (IPCC: 280.E-12* 137.3686/28.97)
+  ! REAL(KIND=8) RCFC12 ! CFC12 CONCENTRATION (IPCC: 484.E-12* 120.9140/28.97)
+  USE lmdz_clesphys, ONLY: rco2, rch4, rn2o, rcfc11, rcfc12
+
   IMPLICIT NONE
   include "raddimlw.h"
@@ -2159 +2169 @@
   ! ORIGINAL : 89-07-14
   ! -----------------------------------------------------------------------
-  ! IM ctes ds clesphys.h
-  ! REAL(KIND=8) RCO2   ! CO2 CONCENTRATION (IPCC:353.E-06* 44.011/28.97)
-  ! REAL(KIND=8) RCH4   ! CH4 CONCENTRATION (IPCC: 1.72E-06* 16.043/28.97)
-  ! REAL(KIND=8) RN2O   ! N2O CONCENTRATION (IPCC: 310.E-09* 44.013/28.97)
-  ! REAL(KIND=8) RCFC11 ! CFC11 CONCENTRATION (IPCC: 280.E-12*
-  ! 137.3686/28.97)
-  ! REAL(KIND=8) RCFC12 ! CFC12 CONCENTRATION (IPCC: 484.E-12*
-  ! 120.9140/28.97)
-  include "clesphys.h"
+
   REAL (KIND=8) pcldld(kdlon, kflev) ! DOWNWARD EFFECTIVE CLOUD COVER
   REAL (KIND=8) pcldlu(kdlon, kflev) ! UPWARD EFFECTIVE CLOUD COVER
@@ -2317 +2319 @@
   USE chem_rep, ONLY: rch42d, rn2o2d, rcfc112d, rcfc122d, ok_rtime2d
 #endif
+    ! IM ctes ds clesphys.h
+  ! REAL(KIND=8) RCO2
+  ! REAL(KIND=8) RCH4, RN2O, RCFC11, RCFC12
+  USE lmdz_clesphys, ONLY: rco2, rch4, rn2o, rcfc11, rcfc12
 
   IMPLICIT NONE
@@ -2352 +2358 @@
   ! -----------------------------------------------------------------------
   ! * ARGUMENTS:
-  ! IM ctes ds clesphys.h
-  ! REAL(KIND=8) RCO2
-  ! REAL(KIND=8) RCH4, RN2O, RCFC11, RCFC12
-  include "clesphys.h"
   REAL (KIND=8) paer(kdlon, kflev, 5)
   REAL (KIND=8) pdp(kdlon, kflev)