Changeset 13295 for NEMO/trunk/src/SWE/dommsk.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SWE/dommsk.F90
r12983 r13295 131 131 ! 132 132 tmask(:,:,:) = 0._wp 133 DO_2D _11_11133 DO_2D( 1, 1, 1, 1 ) 134 134 iktop = k_top(ji,jj) 135 135 ikbot = k_bot(ji,jj) … … 153 153 CALL iom_get ( inum, jpdom_data, 'bdy_msk', bdytmask(:,:) ) 154 154 CALL iom_close( inum ) 155 DO_3D _11_11(1, jpkm1 )155 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 156 156 tmask(ji,jj,jk) = tmask(ji,jj,jk) * bdytmask(ji,jj) 157 157 END_3D … … 194 194 !!an 195 195 ! ssfmask(:,:) = MAXVAL( fmask(:,:,:), DIM=3 ) 196 DO_2D _10_10196 DO_2D( 1, 0, 1, 0 ) 197 197 ssfmask(ji,jj) = MAX( tmask(ji,jj+1,1), tmask(ji+1,jj+1,1), & 198 198 & tmask(ji,jj ,1), tmask(ji+1,jj ,1) ) … … 245 245 DO jk = 1, jpk 246 246 zwf(:,:) = fmask(:,:,jk) 247 DO_2D _00_00247 DO_2D( 0, 0, 0, 0 ) 248 248 IF( fmask(ji,jj,jk) == 0._wp ) THEN 249 249 fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1), &
Note: See TracChangeset
for help on using the changeset viewer.