Ignore:
Timestamp:
2010-12-07T12:17:48+01:00 (11 years ago)
Author:
smasson
Message:

nemo_v3_3_beta: bug in multi-year output frequency, see ticket #775

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/IOIPSL/src/calendar.f90

    r2281 r2459  
    563563!---- Here we compute what logically should be the next month 
    564564!- 
    565       IF (month >= 13) THEN 
    566         yearp = year+1 
     565      DO WHILE (monthp1 >= 13) 
     566        yearp = yearp+1 
    567567        monthp1 = monthp1-12 
    568       ENDIF 
    569       CALL ymds2ju (year,monthp1,day,sec,date_mpf) 
     568      END DO 
     569      CALL ymds2ju (yearp,monthp1,day,sec,date_mpf) 
    570570!- 
    571571!---- But it could be that because of a shorter month or a bad 
     
    577577      monthp1 = month+ABS(freq) 
    578578      yearp=year 
    579       IF (monthp1 >= 13) THEN 
    580         yearp = year+1 
    581         monthp1 = monthp1 -12 
    582       ENDIF 
     579      DO WHILE (monthp1 >= 13) 
     580        yearp = yearp+1 
     581        monthp1 = monthp1-12 
     582      END DO 
    583583      dayp = 1 
    584584      secp = 0.0 
Note: See TracChangeset for help on using the changeset viewer.