Changeset 1621 for trunk/LMDZ.COMMON/libf/dynphy_lonlat
- Timestamp:
- Oct 25, 2016, 9:23:21 AM (8 years ago)
- Location:
- trunk/LMDZ.COMMON/libf/dynphy_lonlat
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/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 -
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan/iniphysiq_mod.F90
r1573 r1621 14 14 15 15 USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end 16 USE comconst_mod, ONLY: cpp 17 USE cpdet_phy_mod, ONLY: init_cpdet_phy 18 USE infotrac, ONLY: nqtot, tname, ttext 19 USE logic_mod, ONLY: iflag_trac 20 USE infotrac_phy, ONLY: init_infotrac_phy 16 21 USE time_phylmdz_mod, ONLY: init_time 17 22 USE inigeomphy_mod, ONLY: inigeomphy … … 73 78 ! Initialize some physical constants 74 79 call suphec 80 81 ! Initialize cpdet_phy module 82 call init_cpdet_phy(cpp) 75 83 76 84 ! Initialize some "temporal and calendar" related variables 77 85 CALL init_time(annee_ref,day_ref,day_ini,day_end,nday,ptimestep) 86 87 ! Initialize tracers in physics 88 CALL init_infotrac_phy(iflag_trac,nqtot,tname,ttext) 78 89 79 90 !$OMP END PARALLEL -
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/callphysiq_mod.F90
r1576 r1621 21 21 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat 22 22 USE physiq_mod, ONLY: physiq 23 USE moyzon_mod, ONLY: plevmoy,tmoy ! planetary mean values to send to physics 23 24 IMPLICIT NONE 24 25 … … 86 87 zqfi_omp, & 87 88 flxwfi_omp, & 89 plevmoy, & ! planet-averaged mean pressure (Pa) at interfaces 90 tmoy, & ! planet-averaged mean temperature (K) at mid-layers 88 91 zdufi_omp, & 89 92 zdvfi_omp, & -
trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/iniphysiq_mod.F90
r1573 r1621 14 14 15 15 USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end 16 USE comconst_mod, ONLY: nu_venus, t0_venus 17 USE cpdet_phy_mod, ONLY: init_cpdet_phy 18 USE infotrac, ONLY: nqtot, tname, ttext 19 USE logic_mod, ONLY: iflag_trac 20 USE infotrac_phy, ONLY: init_infotrac_phy 16 21 USE time_phylmdz_mod, ONLY: init_time 17 22 USE inigeomphy_mod, ONLY: inigeomphy … … 73 78 call suphec 74 79 80 ! Initialize cpdet_phy module 81 call init_cpdet_phy(pcpp,nu_venus,t0_venus) 82 75 83 ! Initialize some "temporal and calendar" related variables 76 84 CALL init_time(annee_ref,day_ref,day_ini,day_end,ptimestep) 85 86 ! Initialize tracers in physics 87 CALL init_infotrac_phy(iflag_trac,nqtot,tname,ttext) 77 88 78 89 !$OMP END PARALLEL
Note: See TracChangeset
for help on using the changeset viewer.