Changeset 14215 for NEMO/trunk/src/OCE/DOM
- Timestamp:
- 2020-12-18T14:49:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/dommsk.F90
r14053 r14215 182 182 ssfmask(:,:) = MAXVAL( fmask(:,:,:), DIM=3 ) 183 183 IF( lk_SWE ) THEN ! Shallow Water Eq. case : redefine ssfmask 184 DO_2D( 0,0 , 0,0)184 DO_2D( 0,0, 0,0 ) 185 185 ssfmask(ji,jj) = MAX( ssmask(ji,jj+1), ssmask(ji+1,jj+1), & 186 186 & ssmask(ji,jj ), ssmask(ji+1,jj ) )
Note: See TracChangeset
for help on using the changeset viewer.