Changeset 1420


Ignore:
Timestamp:
Jul 23, 2010, 12:03:58 PM (14 years ago)
Author:
musat
Message:

Add test on itau_dyn to have a correctly setup of date
for ensemble runs too (A Caubel)
IM

Location:
LMDZ4/branches/LMDZ4_AR5/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/dyn3d/gcm.F

    r1315 r1420  
    303303C on remet le calendrier à zero si demande
    304304c
    305       if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
     305corig     if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
     306cIM ajout test itau_dyn pour mettre a jour la date lorsque l'on part
     307cIM du restart d'une simulation ayant la meme annee de reference que
     308cIM la simulation presente
     309      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref
     310     $    .or. itau_dyn .ne. 0 ) then
    306311        write(lunout,*)
    307312     .  'GCM: Attention les dates initiales lues dans le fichier'
  • LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/gcm.F

    r1315 r1420  
    320320C on remet le calendrier à zero si demande
    321321c
    322       if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
     322corig     if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
     323cIM ajout test itau_dyn pour mettre a jour la date lorsque l'on part
     324cIM du restart d'une simulation ayant la meme annee de reference que
     325cIM la simulation presente
     326      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref
     327     $    .or. itau_dyn .ne. 0 ) then
    323328        write(lunout,*)
    324329     .  'GCM: Attention les dates initiales lues dans le fichier'
Note: See TracChangeset for help on using the changeset viewer.