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

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/dynlonlat_phylonlat/phymars

Files:

• iniphysiq_mod.F90 (modified) (2 diffs)
• newstart.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/iniphysiq_mod.F90

@@ -23 +23 @@
 use infotrac, only : nqtot ! number of advected tracers
 use comgeomfi_h, only: ini_fillgeom
+use temps_mod, only: day_ini, hour_ini
+use phys_state_var_init_mod, only: phys_state_var_init
 use regular_lonlat_mod, only: init_regular_lonlat, &
                               east, west, north, south, &
@@ -171 +173 @@
 ! and do some initializations 
 call phys_state_var_init(klon_omp,nlayer,nqtot, &
-                         punjours,ptimestep,prad,pg,pr,pcpp)
+                         day_ini,hour_ini,punjours,ptimestep, &
+                         prad,pg,pr,pcpp)
 call ini_fillgeom(klon_omp,rlatd,rlond,airephy)
 call conf_phys(klon_omp,nlayer,nqtot)
+
+! Initialize some "temporal and calendar" related variables
+!CALL init_time(day_ini,hour_ini,punjours,ptimestep)
 
 !$OMP END PARALLEL

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.F

@@ -41 +41 @@
       USE temps_mod, ONLY: day_ini,hour_ini
       USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
+      USE phys_state_var_init_mod, ONLY: phys_state_var_init
 
       implicit none
@@ -373 +374 @@
 !      'datafile' path may be changed by user)
       call phys_state_var_init(ngridmx,llm,nqtot,
-     .                         daysec,dtphys,rad,g,r,cpp)
+     &                         day_ini,hour_ini,daysec,dtphys,
+     &                         rad,g,r,cpp)
       call ini_fillgeom(ngridmx,latfi,lonfi,airefi)
       call conf_phys(ngridmx,llm,nqtot)