Changeset 1319 for LMDZ4/trunk/libf/dyn3dpar/comdissnew.h

Timestamp:

Feb 23, 2010, 10:29:54 PM (14 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/comdissnew.h (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/comdissnew.h

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
-c-----------------------------------------------------------------------
-c INCLUDE comdissnew.h
+!
+!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
+!                 veillez à n'utiliser que des ! pour les commentaires
+!                 et à bien positionner les & des lignes de continuation 
+!                 (les placer en colonne 6 et en colonne 73)
+!
+!-----------------------------------------------------------------------
+! INCLUDE 'comdissnew.h'
 
-      COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv,
-     1                   tetagrot,tetatemp,coefdis 
+      COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv,  &
+     &                   tetagrot,tetatemp,coefdis 
 
       LOGICAL lstardis
@@ -12 +18 @@
       REAL     tetagdiv, tetagrot,  tetatemp, coefdis
 
-c
-c ... Les parametres de ce common comdissnew sont  lues par defrun_new 
-c              sur le fichier  run.def    ....
-c
-c-----------------------------------------------------------------------
+!
+! ... Les parametres de ce common comdissnew sont  lues par defrun_new 
+!              sur le fichier  run.def    ....
+!
+!-----------------------------------------------------------------------