Changeset 1621 for trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan
- Timestamp:
- Oct 25, 2016, 9:23:21 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.