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

Timestamp:

Nov 5, 2024, 12:37:47 PM (10 days ago)

Author:

abarral

Message:

Turn raddimlw.h radepsi.h radopt.h into modules
Move unused raddim.*.h to obsolete

File:

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

LMDZ6/trunk/libf/phylmd/radiation_AR4.f90

@@ -310 +310 @@
 SUBROUTINE swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
     paki, pcld, pclear, pdsig, pfact, prmu, psec, pud)
-  USE clesphys_mod_h
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE clesphys_mod_h
   USE dimphy
   USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
@@ -316 +318 @@
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
 
@@ -699 +699 @@
     palbp, pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, &
     pud, pwv, pqs, pfdown, pfup)
-  USE dimphy
+USE radepsi_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: rsun, rray
   USE infotrac_phy, ONLY: type_trac
@@ -706 +707 @@
 
   IMPLICIT NONE
-  include "radepsi.h"
 
   ! ------------------------------------------------------------------
@@ -1195 +1195 @@
     pdsig, prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, &
     ptauaz, ptra1, ptra2)
-  USE dimphy
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: taua, rpiza, rcga
   IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
   ! ------------------------------------------------------------------
@@ -1524 +1524 @@
     ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, &
     ptra2)
-  USE clesphys_mod_h
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE clesphys_mod_h
   USE dimphy
   IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
   ! ------------------------------------------------------------------
@@ -2124 +2124 @@
   ! IM  .              ptoplwdown,ptoplwdownclr)
     plwup, plwdn, plwup0, plwdn0)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE print_control_mod, ONLY: lunout
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
 
 
@@ -2311 +2311 @@
 ! 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 radopt_mod_h
+  USE radepsi_mod_h
+  USE raddimlw_mod_h
+    USE clesphys_mod_h
   USE dimphy
   USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct
@@ -2320 +2323 @@
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
-
-  include "radepsi.h"
-  include "radopt.h"
+
 
   ! PURPOSE.
@@ -2680 +2680 @@
 SUBROUTINE lwbv_lmdar4(klim, pdp, pdt0, pemis, ppmb, ptl, ptave, pabcu, &
     pfluc, pbint, pbsui, pcts, pcntrb)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
 
 
@@ -2767 +2767 @@
 SUBROUTINE lwc_lmdar4(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, &
     pcts, pcntrb, pflux)
-  USE dimphy
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
   ! PURPOSE.
@@ -3143 +3143 @@
 SUBROUTINE lwb_lmdar4(pdt0, ptave, ptl, pb, pbint, pbsuin, pbsur, pbtop, &
     pdbsl, pga, pgb, pgasur, pgbsur, pgatop, pgbtop)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: tintp, xp, ga, gb
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -4543 +4543 @@
     pbtop, pdbsl, pemis, ppmb, ptave, pga, pgb, pgasur, pgbsur, pgatop, &
     pgbtop, pcntrb, pcts, pfluc)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
 
 
@@ -4649 +4649 @@
     pbsui, pbsur, pbtop, pdisd, pdisu, pemis, ppmb, pga, pgb, pgasur, pgbsur, &
     pgatop, pgbtop, pcts, pfluc)
-  USE dimphy
+USE radopt_mod_h
+  USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
-  include "radopt.h"
 
   ! -----------------------------------------------------------------------
@@ -4948 +4948 @@
 SUBROUTINE lwvd_lmdar4(kuaer, ktraer, pabcu, pdbdt, pga, pgb, pcntrb, pdisd, &
     pdisu)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -5180 +5180 @@
 SUBROUTINE lwvn_lmdar4(kuaer, ktraer, pabcu, pdbsl, pga, pgb, padjd, padju, &
     pcntrb, pdbdt)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: wg1
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -5373 +5373 @@
 END SUBROUTINE lwvn_lmdar4
 SUBROUTINE lwtt_lmdar4(pga, pgb, puu, ptt)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -5546 +5546 @@
 END SUBROUTINE lwtt_lmdar4
 SUBROUTINE lwttm_lmdar4(pga, pgb, puu1, puu2, ptt)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! ------------------------------------------------------------------