Changeset 5282 for LMDZ6/trunk/libf/phylmd/radiation_AR4.f90

Timestamp:

Oct 28, 2024, 1:11:48 PM (6 hours ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:

• LMDZ6/trunk/libf/phylmd/radiation_AR4.f90 (modified) (8 diffs)

LMDZ6/trunk/libf/phylmd/radiation_AR4.f90

@@ -5 +5 @@
     tauae, pizae, cgae, ptaua, pomegaa, ptopswad, psolswad, ptopswai, &
     psolswai, ok_ade, ok_aie)
+  USE clesphys_mod_h
   USE dimphy
   USE print_control_mod, ONLY: lunout
@@ -60 +61 @@
   ! 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)
@@ -322 +322 @@
 SUBROUTINE swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
     paki, pcld, pclear, pdsig, pfact, prmu, psec, pud)
+  USE clesphys_mod_h
   USE dimphy
   USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
@@ -346 +347 @@
   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)
@@ -1547 +1547 @@
     ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, &
     ptra2)
+  USE clesphys_mod_h
   USE dimphy
   IMPLICIT NONE
@@ -2201 +2202 @@
   ! 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
@@ -2345 +2345 @@
 ! IM ctes ds clesphys.h   SUBROUTINE LWU(RCO2, RCH4, RN2O, RCFC11, RCFC12,
 SUBROUTINE lwu_lmdar4(paer, pdp, ppmb, ppsol, poz, ptave, pview, pwv, pabcu)
+  USE clesphys_mod_h
   USE dimphy
   USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct
@@ -2400 +2401 @@
   ! 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)