Changeset 5296 for LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90

Timestamp:

Oct 30, 2024, 2:05:33 PM (31 hours ago)

Author:

abarral

Message:

Turn compbl.h into a module
Move calcul_REGDYN.h to obsolete
Create phys_constants_mod.f90

File:

• LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90

@@ -33 +33 @@
 ! the index of the vertical layer.
 USE yomcst_mod_h
+USE compbl_mod_h
 ! Input arguments
 !****************************************************************************************
@@ -61 +62 @@
     REAL                                     :: delz, pkh
     INTEGER                                  :: k, i, ierr
-! Include
-!****************************************************************************************
-    INCLUDE "compbl.h"
-
-
 !****************************************************************************************
 ! 1)
@@ -257 +253 @@
 !   
 USE yomcst_mod_h
+USE compbl_mod_h
 ! Input arguments
 !****************************************************************************************
@@ -282 +279 @@
     REAL, DIMENSION(klon)                    :: psref         
     INTEGER                                  :: k, i, ierr
- 
-! Include
-!****************************************************************************************
-    INCLUDE "compbl.h"
-
 !****************************************************************************************
 ! 1)