Changeset 1621 for trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus
- Timestamp:
- Oct 25, 2016, 9:23:21 AM (9 years ago)
- Location:
- trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus
- Files:
-
- 2 edited
-
callphysiq_mod.F90 (modified) (2 diffs)
-
iniphysiq_mod.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
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.
