Ignore:
Timestamp:
Dec 7, 2016, 7:27:29 PM (8 years ago)
Author:
oboucher
Message:

Correction to be more flexible on the rsun solar forcing in case of noleap calendar

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/rrtm/read_rsun_rrtm.F90

    r2724 r2726  
    5656       ENDIF
    5757
    58        IF (size(time).NE.year_len) THEN
     58!--test if time is different from year_len but allow a mismatch of 1 day
     59       IF (size(time).NE.year_len.AND.size(time).NE.year_len+1) THEN
    5960         PRINT *,'read_rsun_rrtm time <> year_len = ', size(time), year_len
    6061         CALL abort_physic('read_rsun_rrtm','time dim should be the number of days in year',1)
     62       ENDIF
     63!--warning only if forcing file has 366 days but year_len has only 365
     64       IF (size(time).EQ.year_len+1) THEN
     65         PRINT *,'Warning read_rsun_rrtm uses a leap year rsun for a noleap year'
    6166       ENDIF
    6267
Note: See TracChangeset for help on using the changeset viewer.