Changeset 14061 for NEMO/trunk/src/OCE/IOM
- Timestamp:
- 2020-12-03T17:32:40+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/IOM/iom.F90
r14053 r14061 2280 2280 ! 2281 2281 CALL iom_set_domain_attr("grid_"//cdgrd, ni_glo=Ni0glo,nj_glo=Nj0glo,ibegin=mig0(Nis0)-1,jbegin=mjg0(Njs0)-1,ni=Ni_0,nj=Nj_0) 2282 CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = -nn_hls, data_ni = jpi, data_jbegin = -nn_hls, data_nj =jpj)2282 CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = -nn_hls, data_ni=jpi, data_jbegin = -nn_hls, data_nj=jpj) 2283 2283 !don't define lon and lat for restart reading context. 2284 2284 IF ( .NOT.ldrxios ) & … … 2289 2289 ! mask land points, keep values on coast line -> specific mask for U, V and W points 2290 2290 SELECT CASE ( cdgrd ) 2291 CASE('T') ; zmask(:,:,:) = tmask(:,:,:) 2292 CASE('U') ; zmask(2:jpim1,:,:) = tmask(2:jpim1,:,:) + tmask(3:jpi,:,:) 2293 CASE('V') ; zmask(:,2:jpjm1,:) = tmask(:,2:jpjm1,:) + tmask(:,3:jpj,:) 2291 CASE('T') ; zmask( : , : ,:) = tmask(:,:,:) 2292 CASE('U') ; zmask(2:jpim1, : ,:) = tmask(2:jpim1, : ,:) + tmask(3:jpi , : ,:) 2293 CASE('V') ; zmask( : ,2:jpjm1,:) = tmask( : ,2:jpjm1,:) + tmask( : ,3:jpj,:) 2294 CASE('F') ; zmask(2:jpim1,2:jpjm1,:) = tmask(2:jpim1,2:jpjm1,:) + tmask(2:jpim1,3:jpj,:) & 2295 & + tmask(3:jpi ,2:jpjm1,:) + tmask(3:jpi ,3:jpj,:) 2294 2296 CASE('W') ; zmask(:,:,2:jpk ) = tmask(:,:,1:jpkm1) + tmask(:,:,2:jpk) ; zmask(:,:,1) = tmask(:,:,1) 2295 2297 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.