Changeset 3380 for LMDZ6/trunk
- Timestamp:
- Aug 1, 2018, 4:43:32 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
r3168 r3380 577 577 578 578 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 580 582 ELSE IF(is_bcs) THEN !--- BCS DATA: LINEAR TIME INTERPOLATION 581 583 l=1 … … 584 586 IF(timeyear(l+1)<timeday) l=l+1 585 587 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)) 591 589 END DO 592 590 ELSE !--- AVE DATA: SPLINE TIME INTERPOLATION
Note: See TracChangeset
for help on using the changeset viewer.