Changeset 2724 for LMDZ5/trunk/libf/phylmd

Timestamp:

Dec 5, 2016, 4:43:41 PM (8 years ago)

Author:

oboucher

Message:

Small correction on initialisation of RSUN array as RSUN is declared with dimension NTSW > NSW

File:

• LMDZ5/trunk/libf/phylmd/rrtm/read_rsun_rrtm.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/rrtm/read_rsun_rrtm.F90

@@ -91 +91 @@
 
 !--copy 
-      RSUN(:)=SSI_FRAC(:,day_cur)
+      RSUN(1:NSW)=SSI_FRAC(:,day_cur)
       solaire=TSI(day_cur)