Changeset 1201 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/conf_gcm.F

Timestamp:

Jul 7, 2009, 4:01:00 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Modifications nécessaires a l'inclusion d'un calendrier réaliste.
La date courante est calculée dans leapfrog.F et exprimée en Jour Julien
(modifié). On en a profité pour faire un peu de ménage dans la gestion des dates
du modèle.
Dans la physique, on utilise les routines de passages entre calendrier Julien et
Gregorien incluses dans IOIPSL pour calculer le nombre de jours écoulés depuis le
1er janvier (pour les conditions aux limites) ou l'equinoxe (pour le calcul de
la longitude solaire). Le calcul de l'orbite reprend celui du gcm planétaire
(codé par FH)
On décide du calendrier à utiliser à l'aide du paramètre calend du run.def. Par
défaut celui-ci est à earth_360d
LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3d/conf_gcm.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/conf_gcm.F

@@ -38 +38 @@
 #include "serre.h"
 #include "comdissnew.h"
+#include "temps.h"
 #include "comconst.h"
 
@@ -111 +112 @@
       planet_type="earth"
       CALL getin('planet_type',planet_type)
+
+!Config  Key  = calend
+!Config  Desc = type de calendrier utilise
+!Config  Def  = earth_360d
+!Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
+!Config         
+      calend = 'earth_360d'
+      CALL getin('calend', calend)
 
 !Config  Key  = dayref
@@ -576 +585 @@
       write(lunout,*)' Configuration des parametres du gcm: '
       write(lunout,*)' planet_type = ', planet_type
+      write(lunout,*)' calend = ', calend
       write(lunout,*)' dayref = ', dayref
       write(lunout,*)' anneeref = ', anneeref
@@ -762 +772 @@
       write(lunout,*)' Configuration des parametres du gcm: '
       write(lunout,*)' planet_type = ', planet_type
+      write(lunout,*)' calend = ', calend
       write(lunout,*)' dayref = ', dayref
       write(lunout,*)' anneeref = ', anneeref