Ignore:
Timestamp:
Mar 30, 2010, 3:34:15 PM (15 years ago)
Author:
Laurent Fairhead
Message:

raz_date parameter now has priority over differences in the reference dates
that are read in the restart file and the run.def namelist:

  • if raz_date is 1, the reference date is initialised to that read in

the run.def file no matter what

  • if it is 0 and the reference dates read in are different a warning

is output


Le paramètre raz_date est maintenant traité en priorité par rapport
aux différences possibles entre les dates de référence lues dans le fichier
start et le run.def:

  • si raz_date est 1, la date de référence de la simulation est initialisée

à celle lue dans le run.def quoi qu'elle soit

  • si le paramètre est à zéro et que les dates de référence laeus dans les 2 fichiers

sont différentes, un avertissement est imprimé

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/gcm.F

    r1320 r1333  
    304304C on remet le calendrier à zero si demande
    305305c
    306       if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
     306      IF (raz_date == 1) THEN
     307        annee_ref = anneeref
     308        day_ref = dayref
     309        day_ini = dayref
     310        itau_dyn = 0
     311        itau_phy = 0
     312        time_0 = 0.
     313        write(lunout,*)
     314     .   'GCM: On reinitialise a la date lue dans gcm.def'
     315      ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
    307316        write(lunout,*)
    308317     .  'GCM: Attention les dates initiales lues dans le fichier'
     
    312321        write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
    313322        write(lunout,*)' day_ref=',day_ref," dayref=",dayref
    314         if (raz_date .ne. 1) then
    315           write(lunout,*)
    316      .    'GCM: On garde les dates du fichier restart'
    317         else
    318           annee_ref = anneeref
    319           day_ref = dayref
    320           day_ini = dayref
    321           itau_dyn = 0
    322           itau_phy = 0
    323           time_0 = 0.
    324           write(lunout,*)
    325      .   'GCM: On reinitialise a la date lue dans gcm.def'
    326         endif
    327       ELSE
    328         raz_date = 0
    329       endif
     323        write(lunout,*)' Pas de remise a zero'
     324      ENDIF
     325
     326c$$$      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
     327c$$$        write(lunout,*)
     328c$$$     .  'GCM: Attention les dates initiales lues dans le fichier'
     329c$$$        write(lunout,*)
     330c$$$     .  ' restart ne correspondent pas a celles lues dans '
     331c$$$        write(lunout,*)' gcm.def'
     332c$$$    write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
     333c$$$    write(lunout,*)' day_ref=',day_ref," dayref=",dayref
     334c$$$        if (raz_date .ne. 1) then
     335c$$$          write(lunout,*)
     336c$$$     .    'GCM: On garde les dates du fichier restart'
     337c$$$        else
     338c$$$          annee_ref = anneeref
     339c$$$          day_ref = dayref
     340c$$$          day_ini = dayref
     341c$$$          itau_dyn = 0
     342c$$$          itau_phy = 0
     343c$$$          time_0 = 0.
     344c$$$          write(lunout,*)
     345c$$$     .   'GCM: On reinitialise a la date lue dans gcm.def'
     346c$$$        endif
     347c$$$      ELSE
     348c$$$        raz_date = 0
     349c$$$      endif
    330350
    331351#ifdef CPP_IOIPSL
Note: See TracChangeset for help on using the changeset viewer.