Changeset 1524 for trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat

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.COMMON/libf/dynlonlat_phylonlat

Files:

• phytitan/iniphysiq_mod.F90 (modified) (2 diffs)
• phyvenus/iniphysiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/iniphysiq_mod.F90

@@ -22 +22 @@
                         rlond, & ! longitudes
                         rlatd ! latitudes
+  USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end
+  USE time_phylmdz_mod, ONLY: init_time
   USE regular_lonlat_mod, ONLY : init_regular_lonlat, &
                                  east, west, north, south, &
@@ -172 +174 @@
   call suphec
 
+  ! Initialize some "temporal and calendar" related variables
+  CALL init_time(annee_ref,day_ref,day_ini,day_end,ptimestep)
+
 !$OMP END PARALLEL
 

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/iniphysiq_mod.F90

@@ -22 +22 @@
                         rlond, & ! longitudes
                         rlatd ! latitudes
+  USE temps_mod, ONLY: annee_ref, day_ref, day_ini, day_end
+  USE time_phylmdz_mod, ONLY: init_time
   USE regular_lonlat_mod, ONLY : init_regular_lonlat, &
                                  east, west, north, south, &
@@ -172 +174 @@
   call suphec
 
+  ! Initialize some "temporal and calendar" related variables
+  CALL init_time(annee_ref,day_ref,day_ini,day_end,ptimestep)
+
 !$OMP END PARALLEL