Changeset 5139 for LMDZ6/branches/Amaury_dev/libf/phylmd/climb_wind_mod.F90

Timestamp:

Jul 29, 2024, 9:59:33 AM (3 months ago)

Author:

abarral

Message:

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/climb_wind_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/climb_wind_mod.F90

@@ -88 +88 @@
 ! Input arguments
 !****************************************************************************************
+    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
+
+    IMPLICIT NONE
     INTEGER, INTENT(IN)                      :: knon
     REAL, INTENT(IN)                         :: dtime
@@ -123 +126 @@
 !****************************************************************************************
     INCLUDE "YOMCST.h"
-    INCLUDE "compbl.h"    
-
 !****************************************************************************************
 ! Initialize module
@@ -274 +275 @@
 ! Input arguments
 !****************************************************************************************
+    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
+    IMPLICIT NONE
+
     INTEGER, INTENT(IN)                     :: knon
     REAL, INTENT(IN)                        :: dtime
@@ -299 +303 @@
 !****************************************************************************************
     INCLUDE "YOMCST.h"
-    INCLUDE "compbl.h"    
-
 !****************************************************************************************