Changeset 7434 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DYN
- Timestamp:
- 2016-12-02T11:50:44+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90
r7433 r7434 511 511 do jj = 1,jpj 512 512 do ji = 1,jpi 513 IF( bathy(ji,jj) + sshn(ji,jj) < rn_wdmin1 ) THEN514 sshn(ji,jj) = tmask(ji,jj,1)*( rn_wdmin1 - bathy(ji,jj) )513 IF( ht_0(ji,jj) + sshn(ji,jj) < rn_wdmin1 ) THEN 514 sshn(ji,jj) = tmask(ji,jj,1)*( rn_wdmin1 - ht_0(ji,jj) ) 515 515 ENDIF 516 516 end do
Note: See TracChangeset
for help on using the changeset viewer.