Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F
- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F
r1201 r1220 313 313 annee_ref = anneeref 314 314 day_ref = dayref 315 day_ini = 1315 day_ini = dayref 316 316 itau_dyn = 0 317 317 itau_phy = 0 … … 331 331 332 332 #ifdef CPP_IOIPSL 333 call ioconf_startdate(annee_ref, 0,day_ref, 0.)333 call ioconf_startdate(annee_ref,1,day_ref, 0.) 334 334 #endif 335 335 … … 413 413 WRITE(lunout,300)day_ini,day_end 414 414 300 FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//) 415 call ju2ymds(jD_ref +day_ini-1,an, mois, jour, heure)415 call ju2ymds(jD_ref + day_ini - day_ref, an, mois, jour, heure) 416 416 write (lunout,301)jour, mois, an 417 call ju2ymds(jD_ref +day_end-1,an, mois, jour, heure)417 call ju2ymds(jD_ref + day_end - day_ref, an, mois, jour, heure) 418 418 write (lunout,302)jour, mois, an 419 419 301 FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4)
Note: See TracChangeset
for help on using the changeset viewer.