Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

• phys_output_write_spl_mod.F90 (modified) (1 diff)
• splaeropt_6bands_rrtm.f90 (modified) (2 diffs)
• splaeropt_lw_rrtm.f90 (modified) (1 diff)
• splaerosol_optic_rrtm.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -397 +397 @@
     USE lmdz_iniprint, ONLY: lunout, prt_level
     USE lmdz_alpale
+    USE lmdz_clesphys
 
     IMPLICIT NONE
 
     !   INCLUDE "temps.h"
-    INCLUDE "clesphys.h"
     INCLUDE "compbl.h"
     INCLUDE "dimensions.h"

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_6bands_rrtm.f90

@@ -10 +10 @@
   USE phys_local_var_mod, ONLY: abs550aer
   USE lmdz_abort_physic, ONLY: abort_physic
+  USE lmdz_clesphys
 
   ! Olivier Boucher Jan 2017
@@ -15 +16 @@
 
   IMPLICIT NONE
-
-  INCLUDE "clesphys.h"
 
   ! Input arguments:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_lw_rrtm.f90

@@ -13 +13 @@
   USE lmdz_yoerad, ONLY: NLW
   USE lmdz_abort_physic, ONLY: abort_physic
+  USE lmdz_clesphys
 
   IMPLICIT NONE
-
-  INCLUDE "clesphys.h"
 
   ! Input arguments:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaerosol_optic_rrtm.f90

@@ -14 +14 @@
   USE infotrac_phy, ONLY: nbtr, nqtot, tracers
   USE lmdz_yomcst, ONLY: RD, RG
+  USE lmdz_clesphys
 
   IMPLICIT NONE
-
-  INCLUDE "clesphys.h"
-
 
   ! Input arguments