Changeset 3380 for LMDZ6/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r3168 r3380  
    577577
    578578  IF(lmdep==ndays_in) THEN  !--- DAILY DATA: NO     TIME INTERPOLATION
    579      champan(1:iim,:,:)=champtime
     579    DO l=1,lmdep
     580      champan(1:iim,:,l)=champtime(:,:,l+1)
     581    END DO
    580582  ELSE IF(is_bcs) THEN      !--- BCS   DATA: LINEAR TIME INTERPOLATION
    581583    l=1
     
    584586      IF(timeyear(l+1)<timeday) l=l+1
    585587      al=(timeday-timeyear(l))/(timeyear(l+1)-timeyear(l))
    586       DO j=1, jjp1
    587         DO i=1, iim
    588           champan(i,j,k) = champtime(i,j,l)+al*(champtime(i,j,l+1)-champtime(i,j,l))
    589         END DO
    590       END DO
     588      champan(1:iim,:,k) = champtime(1:iim,:,l)+al*(champtime(1:iim,:,l+1)-champtime(1:iim,:,l))
    591589    END DO
    592590  ELSE                      !--- AVE   DATA: SPLINE TIME INTERPOLATION
Note: See TracChangeset for help on using the changeset viewer.