Changeset 5142 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

Timestamp:

Jul 29, 2024, 3:07:34 PM (3 months ago)

Author:

abarral

Message:

Put cvparam.h, fcg_gcssold.h, planete.h, tsoilnudge.h, YOECUMF.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

@@ -47 +47 @@
     USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
     USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
+    USE lmdz_fcs_gcssold, ONLY: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
+    USE lmdz_tsoilnudge, ONLY: nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge
 
     INCLUDE "dimensions.h"
@@ -53 +55 @@
     INCLUDE "compar1d.h"
     INCLUDE "date_cas.h"
-    INCLUDE "tsoilnudge.h"
-    INCLUDE "fcg_gcssold.h"
 
     !=====================================================================