Changeset 1621 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d
- Timestamp:
- Oct 25, 2016, 9:23:21 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F
r1576 r1621 24 24 use callkeys_mod, only: tracer,check_cpp_match,rings_shadow, 25 25 & specOLR,water,pceil,ok_slab_ocean 26 USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff 26 USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff, sig, 27 & presnivs,pseudoalt,scaleheight 28 USE vertical_layers_mod, ONLY: init_vertical_layers 27 29 USE logic_mod, ONLY: hybrid,autozlevs 28 30 use regular_lonlat_mod, only: init_regular_lonlat … … 502 504 & (/0.,0.,0.,0./),(/0.,0.,0.,0./), 503 505 & cell_area) 506 ! Ehouarn: init_vertial_layers called later (because disvert not called yet) 507 ! call init_vertical_layers(nlayer,preff,scaleheight, 508 ! & ap,bp,aps,bps,presnivs,pseudoalt) 504 509 call init_dimphy(1,nlayer) ! Initialize dimphy module 505 510 call ini_planete_mod(nlayer,preff,ap,bp) … … 734 739 735 740 call disvert 741 ! now that disvert has been called, initialize module vertical_layers_mod 742 call init_vertical_layers(nlayer,preff,scaleheight, 743 & ap,bp,aps,bps,presnivs,pseudoalt) 736 744 737 745 if(.not.autozlevs)then
Note: See TracChangeset
for help on using the changeset viewer.