Changeset 1621 for trunk/LMDZ.MARS/libf/dynphy_lonlat/inigeomphy_mod.F90
- Timestamp:
- Oct 25, 2016, 9:23:21 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/dynphy_lonlat/inigeomphy_mod.F90
r1573 r1621 21 21 USE mod_interface_dyn_phys, ONLY : init_interface_dyn_phys 22 22 USE nrtype, ONLY: pi 23 USE comvert_mod, ONLY: preff, ap, bp, aps, bps, presnivs, & 24 scaleheight, pseudoalt 25 USE vertical_layers_mod, ONLY: init_vertical_layers 23 26 IMPLICIT NONE 24 27 … … 213 216 airefi,cufi,cvfi) 214 217 218 ! copy over preff , ap(), bp(), etc 219 CALL init_vertical_layers(nlayer,preff,scaleheight, & 220 ap,bp,aps,bps,presnivs,pseudoalt) 221 215 222 !$OMP END PARALLEL 216 223
Note: See TracChangeset
for help on using the changeset viewer.