Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/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/dyn3dpar/gcm.F
r1201 r1220 326 326 annee_ref = anneeref 327 327 day_ref = dayref 328 day_ini = 1328 day_ini = dayref 329 329 itau_dyn = 0 330 330 itau_phy = 0 … … 344 344 345 345 #ifdef CPP_IOIPSL 346 call ioconf_startdate(annee_ref, 0,day_ref, 0.)346 call ioconf_startdate(annee_ref,1,day_ref, 0.) 347 347 #endif 348 348 … … 436 436 WRITE(lunout,300)day_ini,day_end 437 437 300 FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//) 438 call ju2ymds(jD_ref +day_ini-1,an, mois, jour, heure)438 call ju2ymds(jD_ref + day_ini - day_ref, an, mois, jour, heure) 439 439 write (lunout,301)jour, mois, an 440 call ju2ymds(jD_ref +day_end-1,an, mois, jour, heure)440 call ju2ymds(jD_ref + day_end - day_ref, an, mois, jour, heure) 441 441 write (lunout,302)jour, mois, an 442 442 301 FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4)
Note: See TracChangeset
for help on using the changeset viewer.