Changeset 2229
- Timestamp:
- Mar 12, 2015, 3:23:10 PM (10 years ago)
- Location:
- LMDZ5/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/gcm.F
r2225 r2229 193 193 call ioconf_calendar('noleap') 194 194 write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an' 195 else if (calend == ' earth_366d') then195 else if (calend == 'gregorian') then 196 196 call ioconf_calendar('gregorian') 197 197 write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile' … … 294 294 295 295 C 296 C on remet le calendrier àzero si demande296 C on remet le calendrier \`a zero si demande 297 297 c 298 298 IF (start_time /= starttime) then 299 299 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' 301 301 IF (raz_date == 1) then 302 302 WRITE(lunout,*)'Je prends l''heure lue dans run.def' -
LMDZ5/trunk/libf/dyn3dmem/gcm.F
r2225 r2229 194 194 call ioconf_calendar('noleap') 195 195 write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an' 196 else if (calend == ' earth_366d') then196 else if (calend == 'gregorian') then 197 197 call ioconf_calendar('gregorian') 198 198 write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile' … … 290 290 291 291 C 292 C on remet le calendrier àzero si demande292 C on remet le calendrier \`a zero si demande 293 293 c 294 294 IF (start_time /= starttime) then 295 295 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' 297 297 IF (raz_date == 1) then 298 298 WRITE(lunout,*)'Je prends l''heure lue dans run.def'
Note: See TracChangeset
for help on using the changeset viewer.