Changeset 5282 for LMDZ6/trunk/libf/phylmd/Dust

Timestamp:

Oct 28, 2024, 1:11:48 PM (4 days ago)

Author:

abarral

Message:

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

Location:

LMDZ6/trunk/libf/phylmd/Dust

Files:

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

LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -4 +4 @@
 MODULE phys_output_write_spl_mod
 
-!JE20150620<<
-!JE20150620>>
-!JE20150620<<
-
-  USE time_phylmdz_mod, ONLY: day_step_phy, start_time, itau_phy
+
+    USE time_phylmdz_mod, ONLY: day_step_phy, start_time, itau_phy
 
   USE phytracr_spl_mod, ONLY : ok_chimeredust, id_prec, id_fine, id_coss, &
@@ -68 +65 @@
        flux_sparam_sscoa,u10m_ss,v10m_ss
 
-  USE dustemission_mod, ONLY : m1dflux, m2dflux, m3dflux 
+  USE dustemission_mod, ONLY : m1dflux, m2dflux, m3dflux
 
 !  USE phytrac_mod, ONLY : d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
@@ -80 +77 @@
   ! Author: Ulysse GERARD (effective implementation)
 
-CONTAINS 
+CONTAINS
 
   ! ug Routine pour définir (lors du premier passageà) ET sortir les variables
@@ -195 +192 @@
          o_ptconvth, o_lmaxth, o_dtvdf, &
          o_dtdis, o_dqvdf, o_dteva, o_dqeva, &
-         o_ptconv, o_ratqs, o_dtthe, & 
+         o_ptconv, o_ratqs, o_dtthe, &
          o_duthe, o_dvthe, o_ftime_th, &
          o_f_th, o_e_th, o_w_th, o_q_th, &
@@ -409 +406 @@
           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
           , RALPD, RBETD, RGAMD
+    USE clesphys_mod_h
+    USE iniprint_mod_h
 IMPLICIT NONE
 
 !   INCLUDE "temps.h"
-    INCLUDE "clesphys.h"
     INCLUDE "alpale.h"
     INCLUDE "compbl.h"
 
 
-    include "iniprint.h"
 
     ! Input

LMDZ6/trunk/libf/phylmd/Dust/splaeropt_6bands_rrtm.f90

@@ -6 +6 @@
      tau_allaer, piz_allaer, cg_allaer )
 
+  USE clesphys_mod_h
   USE dimphy
   USE aero_mod
@@ -16 +17 @@
   IMPLICIT NONE
 
-  INCLUDE "clesphys.h"
   !
   ! Input arguments:

LMDZ6/trunk/libf/phylmd/Dust/splaeropt_lw_rrtm.f90

@@ -8 +8 @@
 SUBROUTINE SPLAEROPT_LW_RRTM(ok_alw,zdm,tr_seri)
 
+  USE clesphys_mod_h
   USE dimphy
   USE aero_mod
@@ -16 +17 @@
   IMPLICIT NONE
 
-  INCLUDE "clesphys.h"
   !
   ! Input arguments:

LMDZ6/trunk/libf/phylmd/Dust/splaerosol_optic_rrtm.f90

@@ -11 +11 @@
   !
 
+  USE clesphys_mod_h
   USE dimphy
   USE aero_mod
@@ -18 +19 @@
   IMPLICIT NONE
 
-  INCLUDE "clesphys.h"