Changeset 1319 for LMDZ4/trunk/libf/phylmd/phyetat0.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/phylmd/phyetat0.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/phyetat0.F

@@ -228 +228 @@
      $          'coherente ', i, zmasq(i), pctsrf(i, is_ter)
      $          ,pctsrf(i, is_lic)
+            zmasq(i) = fractint(i)
         ENDIF 
       END DO 
@@ -237 +238 @@
      $          'coherente ', i, zmasq(i) , pctsrf(i, is_oce)
      $          ,pctsrf(i, is_sic)
+            zmasq(i) = fractint(i)
         ENDIF 
       END DO