Changeset 2455
- Timestamp:
- Feb 16, 2021, 12:50:59 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F
r2454 r2455 36 36 real,intent(in) :: piphysiq ! call physics every piphysiq dynamical timesteps 37 37 38 ! isotopes 39 INTEGER :: nqperes 40 INTEGER, ALLOCATABLE, DIMENSION(:) :: nqfils 41 42 ! isotopes variables initialisation 43 ! -- for the moment, interface with dynamics is inactive 44 ! -- all tracers are parents with no children 45 nqperes=nq 46 allocate(nqfils(nq)) 47 nqfils(:)=0 48 38 49 ! copy some fundamental parameters to physics 39 50 ! and do some initializations … … 46 57 call phys_state_var_init(ngrid,nlayer,nq, traceurs, & 47 58 pdayref,phour_ini,punjours,zdt_split, & 48 prad,pg,pr,pcpp) 59 prad,pg,pr,pcpp, & 60 nqperes,nqfils) 49 61 50 62 !! read callphys.def
Note: See TracChangeset
for help on using the changeset viewer.