Changeset 2229


Ignore:
Timestamp:
Mar 12, 2015, 3:23:10 PM (10 years ago)
Author:
lguez
Message:

For a real calendar in gcm, the variable calend in *.def must now be
equal to gregorian, instead of earth_366d. This is the same value than
the one required in ce0l.

Location:
LMDZ5/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d/gcm.F

    r2225 r2229  
    193193        call ioconf_calendar('noleap')
    194194        write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an'
    195       else if (calend == 'earth_366d') then
     195      else if (calend == 'gregorian') then
    196196        call ioconf_calendar('gregorian')
    197197        write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile'
     
    294294
    295295C
    296 C on remet le calendrier à zero si demande
     296C on remet le calendrier \`a zero si demande
    297297c
    298298      IF (start_time /= starttime) then
    299299        WRITE(lunout,*)' GCM: Attention l''heure de depart lue dans le'
    300      &,' fichier restart ne correspond pas à celle lue dans le run.def'
     300     &,' fichier restart ne correspond pas \`a celle lue dans le run.def'
    301301        IF (raz_date == 1) then
    302302          WRITE(lunout,*)'Je prends l''heure lue dans run.def'
  • LMDZ5/trunk/libf/dyn3dmem/gcm.F

    r2225 r2229  
    194194        call ioconf_calendar('noleap')
    195195        write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an'
    196       else if (calend == 'earth_366d') then
     196      else if (calend == 'gregorian') then
    197197        call ioconf_calendar('gregorian')
    198198        write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile'
     
    290290
    291291C
    292 C on remet le calendrier à zero si demande
     292C on remet le calendrier \`a zero si demande
    293293c
    294294      IF (start_time /= starttime) then
    295295        WRITE(lunout,*)' GCM: Attention l''heure de depart lue dans le'
    296      &,' fichier restart ne correspond pas à celle lue dans le run.def'
     296     &,' fichier restart ne correspond pas \`a celle lue dans le run.def'
    297297        IF (raz_date == 1) then
    298298          WRITE(lunout,*)'Je prends l''heure lue dans run.def'
Note: See TracChangeset for help on using the changeset viewer.