Changeset 3540 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Jun 25, 2019, 4:50:13 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Modifications needed for "real" calendar in 1D model
MPL/EM

Location:

LMDZ6/trunk/libf/dyn3d

Files:

• conf_gcm.F90 (modified) (2 diffs)
• temps_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/conf_gcm.F90

@@ -21 +21 @@
   USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
                        alphax,alphay,taux,tauy
-  USE temps_mod, ONLY: calend
+  USE temps_mod, ONLY: calend, year_len
 
   IMPLICIT NONE
@@ -115 +115 @@
   calend = 'earth_360d'
   CALL getin('calend', calend)
+! initialize year_len for aquaplanets and 1D
+      if (calend == 'earth_360d') then
+        year_len=360
+      else if (calend == 'earth_365d') then
+        year_len=365
+      else if (calend == 'earth_366d') then
+        year_len=366
+      else 
+        year_len=1
+      endif
 
   !Config  Key  = dayref

LMDZ6/trunk/libf/dyn3d/temps_mod.F90

@@ -13 +13 @@
   INTEGER   annee_ref
   INTEGER   day_ref
+  INTEGER   year_len
   REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
   REAL      jD_ref ! reference julian day date (beginning of experiment)