Changeset 1328 for LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F90
- Timestamp:
- Mar 18, 2010, 2:26:23 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/etat0_netcdf.F90
r1323 r1328 214 214 WRITE(lunout,fmt)int(ocemask) 215 215 ocemask_fi(1)=ocemask(1,1) 216 DO j=2,jjm; ocemask_fi((j-2)*iim+ 1:iim+1)=ocemask(1:iim,j); END DO216 DO j=2,jjm; ocemask_fi((j-2)*iim+2:(j-1)*iim+1)=ocemask(1:iim,j); END DO 217 217 ocemask_fi(klon)=ocemask(1,jjp1) 218 218 zmasq=1.-ocemask_fi
Note: See TracChangeset
for help on using the changeset viewer.