Changeset 3380 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

Timestamp:

Aug 1, 2018, 4:43:32 PM (6 years ago)

Author:

dcugnet

Message:

Fix for daily input data usage in limit_netcdf: remove 1 day shift between champan and champtime.

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -577 +577 @@
 
   IF(lmdep==ndays_in) THEN  !--- DAILY DATA: NO     TIME INTERPOLATION
-     champan(1:iim,:,:)=champtime
+    DO l=1,lmdep
+      champan(1:iim,:,l)=champtime(:,:,l+1)
+    END DO
   ELSE IF(is_bcs) THEN      !--- BCS   DATA: LINEAR TIME INTERPOLATION
     l=1
@@ -584 +586 @@
       IF(timeyear(l+1)<timeday) l=l+1
       al=(timeday-timeyear(l))/(timeyear(l+1)-timeyear(l))
-      DO j=1, jjp1
-        DO i=1, iim
-          champan(i,j,k) = champtime(i,j,l)+al*(champtime(i,j,l+1)-champtime(i,j,l))
-        END DO
-      END DO
+      champan(1:iim,:,k) = champtime(1:iim,:,l)+al*(champtime(1:iim,:,l+1)-champtime(1:iim,:,l))
     END DO
   ELSE                      !--- AVE   DATA: SPLINE TIME INTERPOLATION