Changeset 5139 for LMDZ6/branches/Amaury_dev/libf/phylmd/climb_hq_mod.F90
- Timestamp:
- Jul 29, 2024, 9:59:33 AM (8 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/climb_hq_mod.F90
r5117 r5139 47 47 ! Input arguments 48 48 !**************************************************************************************** 49 USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree 50 51 IMPLICIT NONE 49 52 INTEGER, INTENT(IN) :: knon 50 53 REAL, DIMENSION(klon,klev), INTENT(IN) :: coefhq … … 84 87 !**************************************************************************************** 85 88 INCLUDE "YOMCST.h" 86 INCLUDE "compbl.h"87 88 89 89 !**************************************************************************************** 90 90 ! 1) … … 331 331 ! Input arguments 332 332 !**************************************************************************************** 333 USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree 334 IMPLICIT NONE 333 335 INTEGER, INTENT(IN) :: knon 334 336 REAL, INTENT(IN) :: dtime … … 358 360 !**************************************************************************************** 359 361 INCLUDE "YOMCST.h" 360 INCLUDE "compbl.h"361 362 362 !**************************************************************************************** 363 363 ! 1)
Note: See TracChangeset
for help on using the changeset viewer.