Changeset 1107 for trunk/LMDZ.COMMON/libf/dyn3d/temps.h

Timestamp:

Nov 19, 2013, 12:52:22 PM (11 years ago)

Author:

emillour

Message:

Common dynamics: Updates and modifications to enable running Mars physics with

LMDZ.COMMON dynamics:

• For compilation: adapted makelmdz, create_make_gcm and makelmdz_fcm, bld.cfg to compile aeronomy routines in "aerono$physique" if it exists, and added "-P -traditional" preprocessing flags in "arch-linux-ifort*"
• Added function "cbrt.F" (cubic root) in 'bibio'
• Adapted the reading/writing of dynamics (re)start.nc files for Mars. The main issue is that different information (on time, reference and current) is stored and used differently, hence a few if (planet_type =="mars") here and there. Moreover in the martian case there is the possibility to store fields over multiple times. Some Mars-specific variables (ecritphy,ecritstart,timestart) added in control_mod.F and (hour_ini) in temps.h

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d/temps.h (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/temps.h

@@ -13 +13 @@
 ! INCLUDE 'temps.h'
 
-      COMMON/temps/ dt, jD_ref, jH_ref, start_time,                     &
-     &             day_ini, day_end, annee_ref, day_ref,                &
-     &             itau_dyn, itau_phy, itaufin, calend
+      COMMON/temps_r/dt,jD_ref,jH_ref,start_time,hour_ini
+      COMMON/temps_i/day_ini,day_end,annee_ref,day_ref,                 &
+     &             itau_dyn,itau_phy,itaufin
+      COMMON/temps_c/calend
 
 
-      INTEGER   itaufin
+      INTEGER   itaufin ! total number of dynamical steps for the run
       INTEGER   itau_dyn, itau_phy
-      INTEGER   day_ini, day_end, annee_ref, day_ref
-      REAL      dt, jD_ref, jH_ref, start_time
+      INTEGER   day_ini ! initial day # of simulation sequence
+      INTEGER   day_end ! final day # ; i.e. day # when this simulation ends
+      INTEGER   annee_ref
+      INTEGER   day_ref
+      REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
+      REAL      jD_ref, jH_ref, start_time
       CHARACTER (len=10) :: calend
 
+      ! Additionnal Mars stuff:
+      real hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
+
 !-----------------------------------------------------------------------