- Timestamp:
- Nov 5, 2018, 3:24:59 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
/LMDZ6/trunk removed
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/regr_horiz_time_climoz_m.F90
r3356 r3411 190 190 !--- Ensure first input longitudes interval contains first output point boundslon_reg(1,west) 191 191 dx1=locate(v1,boundslon_reg(1,west))-1 192 v1=CSHIFT(v1,SHIFT=dx1,DIM=1); v1(nlon_in-dx1+ 2:)=v1(nlon_in-dx1+2:)+2.*pi193 194 !--- Extend input longitudes vector until last interval contains boundslon_reg(nl on_ou,east)195 dx2=0; DO WHILE(v1(1+dx2)+2.*pi< =boundslon_reg(nlon_ou,east)); dx2=dx2+1; END DO192 v1=CSHIFT(v1,SHIFT=dx1,DIM=1); v1(nlon_in-dx1+1:)=v1(nlon_in-dx1+1:)+2.*pi 193 194 !--- Extend input longitudes vector until last interval contains boundslon_reg(nlat_ou,east) 195 dx2=0; DO WHILE(v1(1+dx2)+2.*pi<boundslon_reg(nlon_ou,east)); dx2=dx2+1; END DO 196 196 197 197 !--- Final edges longitudes vector (with margin and end point)
Note: See TracChangeset
for help on using the changeset viewer.