Changeset 1524 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Mar 29, 2016, 11:45:49 AM (9 years ago)

Author:

emillour

Message:

All GCMS:
More updates to enforce dynamics/physics separation:

get rid of references to "temps_mod" from physics packages;
make a "time_phylmdz_mod.F90" module to store that
information and fill it via "iniphysiq".

EM

Location:

trunk/LMDZ.MARS/libf/phymars/dyn1d

Files:

• temps_mod.F90 (deleted)
• testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -16 +16 @@
       use planete_h, only: year_day, periheli, aphelie, peri_day,
      &                     obliquit, emin_turb, lmixmin
-      use comcstfi_h, only: pi, rad, daysec, omeg, g, mugaz, rcp, r,
-     &                      cpp, dtphys
+      use comcstfi_h, only: pi, rad, omeg, g, mugaz, rcp, r, cpp
+      use time_phylmdz_mod, only: daysec, dtphys
       use dimradmars_mod, only: tauscaling,tauvis
       USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,sig
       USE logic_mod, ONLY: hybrid
+      USE phys_state_var_init_mod, ONLY: phys_state_var_init
       IMPLICIT NONE
 
@@ -478 +479 @@
 !Mars possible matter with dtphys in input and include!!!
       call phys_state_var_init(1,llm,nq,
-     .          daysec,dtphys,rad,g,r,cpp)
+     .          day0,time,daysec,dtphys,rad,g,r,cpp)
       call ini_fillgeom(1,latitude,longitude,(/1.0/))
       call conf_phys(1,llm,nq)