Changeset 1319 for LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

Feb 23, 2010, 10:29:54 PM (15 years ago)

Author:

Laurent Fairhead

Message:

• Modifications to the start and limit creation routines to account for different

calendars

• Modification to phyetat0 to force the mask read in the start files to match the

surface fractions read in the limit file

• Force readaerosol.F90 to read in aerosols file with 12 timesteps

---

• Modifications aux routines de créations des fichiers start et limit pour prendre

en compte différents calendriers

• Modification à phyetat0 pour forcer le masque lu dans le fichier start à être

compatible avec les fractions de surface lu dans le fichier limit

• Forcer readaerosol à ne lire que des fichiers à 12 pas de temps

File:

• LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3dpar/conf_gcm.F

@@ -353 +353 @@
        iphysiq = 5
        CALL getin('iphysiq', iphysiq)
-
-ccc   .... P.Le Van, ajout le 03/01/96 pour l'ecriture phys ...
-c
-
 
 !Config  Key  = ip_ebil_dyn
@@ -819 +815 @@
        CALL getin('ok_gradsfile',ok_gradsfile)
 
+!Config  Key  = ok_limit
+!Config  Desc = creation des fichiers limit dans create_etat0_limit
+!Config  Def  = y
+!Config  Help = production du fichier limit.nc requise
+
+       ok_limit = .TRUE.
+       CALL getin('ok_limit',ok_limit)
+
+!Config  Key  = ok_etat0
+!Config  Desc = creation des fichiers etat0 dans create_etat0_limit
+!Config  Def  = y
+!Config  Help = production des fichiers start.nc, startphy.nc requise
+
+      ok_etat0 = .TRUE.
+      CALL getin('ok_etat0',ok_etat0)
+
       write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres du gcm: '
+      write(lunout,*)' Configuration des parametres de create_etat0'
+     &             //'_limit: '
       write(lunout,*)' planet_type = ', planet_type
       write(lunout,*)' calend = ', calend
@@ -862 +875 @@
       write(lunout,*)' ok_strato = ', ok_strato
       write(lunout,*)' ok_gradsfile = ', ok_gradsfile
+      write(lunout,*)' ok_limit = ', ok_limit
+      write(lunout,*)' ok_etat0 = ', ok_etat0
 c
       RETURN