Changeset 2455 for trunk/MESOSCALE

Timestamp:

Feb 16, 2021, 12:50:59 AM (4 years ago)

Author:

aslmd

Message:

MESOSCALE Mars: a quick fix for mesoscale interface to account for the addition of parent/child tracers capability in r2332. we provide dummy settings (all tracers are parents without children) so that the model compiles and runs, an interface for parent/child isotope tracers between WRF and the Mars physics will need to be properly implemented in the future.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F

@@ -36 +36 @@
 real,intent(in) :: piphysiq   ! call physics every piphysiq dynamical timesteps
 
+! isotopes
+INTEGER :: nqperes
+INTEGER, ALLOCATABLE, DIMENSION(:) :: nqfils
+
+! isotopes variables initialisation
+! -- for the moment, interface with dynamics is inactive
+! -- all tracers are parents with no children
+nqperes=nq
+allocate(nqfils(nq))
+nqfils(:)=0
+
 ! copy some fundamental parameters to physics 
 ! and do some initializations 
@@ -46 +57 @@
 call phys_state_var_init(ngrid,nlayer,nq, traceurs, &
                          pdayref,phour_ini,punjours,zdt_split, &
-                         prad,pg,pr,pcpp)
+                         prad,pg,pr,pcpp, &
+                         nqperes,nqfils)
 
 !! read callphys.def