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

Timestamp:

Jul 29, 2024, 9:59:33 AM (8 weeks 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_qbs_mod.F90 (modified) (4 diffs)

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

@@ -35 +35 @@
 ! Input arguments
 !****************************************************************************************
+    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
+    IMPLICIT NONE
     INTEGER, INTENT(IN)                      :: knon
     REAL, DIMENSION(klon,klev), INTENT(IN)   :: coefqbs
@@ -64 +66 @@
 !****************************************************************************************
     INCLUDE "YOMCST.h"
-    INCLUDE "compbl.h"    
-
-
 !****************************************************************************************
 ! 1)
@@ -260 +259 @@
 ! 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
@@ -287 +289 @@
 !****************************************************************************************
     INCLUDE "YOMCST.h"
-    INCLUDE "compbl.h"    
-
 !****************************************************************************************
 ! 1)