Changeset 13295 for NEMO/trunk/src/OCE/DYN/wet_dry.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/wet_dry.F90
r13237 r13295 174 174 ! 175 175 wdmask(:,:) = 1._wp 176 DO_2D _01_01176 DO_2D( 0, 1, 0, 1 ) 177 177 ! 178 178 IF( tmask(ji,jj,1) < 0.5_wp ) CYCLE ! we don't care about land cells … … 198 198 wdramp(:,:) = min((ht_0(:,:) + psshb1(:,:) - rn_wdmin1)/(rn_wdmin0 - rn_wdmin1),1.0_wp) 199 199 !jth assume don't need a lbc_lnk here 200 DO_2D _10_10200 DO_2D( 1, 0, 1, 0 ) 201 201 wdrampu(ji,jj) = MIN( wdramp(ji,jj) , wdramp(ji+1,jj) ) 202 202 wdrampv(ji,jj) = MIN( wdramp(ji,jj) , wdramp(ji,jj+1) ) … … 211 211 jflag = 0 ! flag indicating if any further iterations are needed 212 212 ! 213 DO_2D _01_01213 DO_2D( 0, 1, 0, 1 ) 214 214 IF( tmask(ji, jj, 1) < 0.5_wp ) CYCLE 215 215 IF( ht_0(ji,jj) > zdepwd ) CYCLE … … 307 307 zwdlmtv(:,:) = 1._wp 308 308 ! 309 DO_2D _01_01309 DO_2D( 0, 1, 0, 1 ) 310 310 ! 311 311 IF( tmask(ji, jj, 1 ) < 0.5_wp) CYCLE ! we don't care about land cells … … 333 333 jflag = 0 ! flag indicating if any further iterations are needed 334 334 ! 335 DO_2D _01_01335 DO_2D( 0, 1, 0, 1 ) 336 336 ! 337 337 IF( tmask(ji, jj, 1 ) < 0.5_wp ) CYCLE
Note: See TracChangeset
for help on using the changeset viewer.