- Timestamp:
- 2020-03-26T15:59:52+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE
- Files:
-
- 1 added
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/dommsk.F90
r12529 r12614 192 192 ssumask(:,:) = MAXVAL( umask(:,:,:), DIM=3 ) 193 193 ssvmask(:,:) = MAXVAL( vmask(:,:,:), DIM=3 ) 194 194 !!an 195 ! ssfmask(:,:) = MAXVAL( fmask(:,:,:), DIM=3 ) 196 DO_2D_10_10 197 ssfmask(ji,jj) = MAX( tmask(ji,jj+1,1), tmask(ji+1,jj+1,1), & 198 & tmask(ji,jj ,1), tmask(ji+1,jj ,1) ) 199 END_2D 200 CALL lbc_lnk( 'dommsk', ssfmask, 'F', 1._wp ) 201 202 !!an 195 203 196 204 ! Interior domain mask (used for global sum)
Note: See TracChangeset
for help on using the changeset viewer.