Changeset 2729 for LMDZ5/branches/testing/libf/phylmd/rrtm/read_rsun_rrtm.F90

Timestamp:

Dec 13, 2016, 5:13:39 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2719:2727 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/read_rsun_rrtm.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/rrtm/read_rsun_rrtm.F90

@@ -56 +56 @@
        ENDIF
 
-       IF (size(time).NE.year_len) THEN 
+!--test if time is different from year_len but allow a mismatch of 1 day
+       IF (size(time).NE.year_len.AND.size(time).NE.year_len+1) THEN
          PRINT *,'read_rsun_rrtm time <> year_len = ', size(time), year_len
          CALL abort_physic('read_rsun_rrtm','time dim should be the number of days in year',1)
+       ENDIF
+!--warning only if forcing file has 366 days but year_len has only 365
+       IF (size(time).EQ.year_len+1) THEN 
+         PRINT *,'Warning read_rsun_rrtm uses a leap year rsun for a noleap year'
        ENDIF
 
@@ -91 +96 @@
 
 !--copy 
-      RSUN(:)=SSI_FRAC(:,day_cur)
+      RSUN(1:NSW)=SSI_FRAC(:,day_cur)
       solaire=TSI(day_cur)