Changeset 2332 for trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

Timestamp:

May 26, 2020, 12:17:13 PM (5 years ago)

Author:

mvals

Message:

Mars GCM:
Follow-up of the last commit for the transport of the isotopic ratio: simplification of the transmission of variables from the dynamics to the
physics:

• libf/dynphy_lonlat/phymars/: iniphysiq_mod.F90: transmission of the content of 2 variables describing the isotopes instead of 4 (nqperes: number of tracers "peres", nqfils:

number of tracers "fils")

• libf/phymars/: phys_state_var_init_mod.F90, tracer_mod.F: idem callsedim_mod.F: idem co2condens_mod.F: idem
• libf/phymars/dyn1d: testphys1d.F: idem (the reading interface for traceur.def has been completed to fill the variables nqperes and nqfils).

MV

File:

• trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

@@ -6 +6 @@
                                      day_ini,hour_ini,pdaysec,ptimestep, &
                                      prad,pg,pr,pcpp, &
-                                     dyn_nqdesc,dyn_iqfils,dyn_nqperes,dyn_nqfils)! MVals: variables isotopes
+                                     dyn_nqperes,dyn_nqfils)! MVals: variables isotopes
 
 !=======================================================================
@@ -71 +71 @@
       INTEGER,INTENT(in) :: dyn_nqperes
       INTEGER,INTENT(in) :: dyn_nqfils(nq)
-      INTEGER,INTENT(in) :: dyn_nqdesc(nq)
-      INTEGER,INTENT(in) :: dyn_iqfils(nq,nq)
 
       ! set dimension and allocate arrays in tracer_mod
       call end_tracer_mod
-      call ini_tracer_mod(nq,tname,dyn_nqdesc,dyn_iqfils,dyn_nqperes,dyn_nqfils)! MVals: variables isotopes
+      call ini_tracer_mod(nq,tname,dyn_nqperes,dyn_nqfils)! MVals: variables isotopes