Changeset 5296 for LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90
- Timestamp:
- Oct 30, 2024, 2:05:33 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90
r5285 r5296 33 33 ! the index of the vertical layer. 34 34 USE yomcst_mod_h 35 USE compbl_mod_h 35 36 ! Input arguments 36 37 !**************************************************************************************** … … 61 62 REAL :: delz, pkh 62 63 INTEGER :: k, i, ierr 63 ! Include64 !****************************************************************************************65 INCLUDE "compbl.h"66 67 68 64 !**************************************************************************************** 69 65 ! 1) … … 257 253 ! 258 254 USE yomcst_mod_h 255 USE compbl_mod_h 259 256 ! Input arguments 260 257 !**************************************************************************************** … … 282 279 REAL, DIMENSION(klon) :: psref 283 280 INTEGER :: k, i, ierr 284 285 ! Include286 !****************************************************************************************287 INCLUDE "compbl.h"288 289 281 !**************************************************************************************** 290 282 ! 1)
Note: See TracChangeset
for help on using the changeset viewer.