Changeset 1264 for LMDZ4/branches/LMDZ4-dev/libf

Timestamp:

Nov 20, 2009, 9:29:48 AM (15 years ago)

Author:

Laurent Fairhead

Message:

1) Correction sur l'utilisation de ioconf_stardate pour definir la date de

début de simulation

2) Correction d'une erreur de casse sur la variable F0 entrainant une

non-lecture de cette variable dans le fichier start

Location:

LMDZ4/branches/LMDZ4-dev/libf

Files:

• dyn3d/gcm.F (modified) (1 diff)
• dyn3dpar/gcm.F (modified) (1 diff)
• phylmd/phyetat0.F (modified) (1 diff)

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

@@ -333 +333 @@
       jD_ref = int(jD_ref)
 
-      call ioconf_startdate(annee_ref,1,day_ref, 0.)
+      call ioconf_startdate(INT(jD_ref), jH_ref)
 
       write(lunout,*)'DEBUG'

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F

@@ -349 +349 @@
       jD_ref = int(jD_ref)
 
-      call ioconf_startdate(annee_ref,1,day_ref, 0.)
+      call ioconf_startdate(INT(jD_ref), jH_ref)
 
       write(lunout,*)'DEBUG'

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phyetat0.F

@@ -869 +869 @@
 c           f0(ig)=1.e-5
 c f0
-      CALL get_field("f0",f0,found)
+      CALL get_field("F0",f0,found)
       IF (.NOT. found) THEN
          PRINT*, "phyetat0: Le champ <f0> est absent"