- Timestamp:
- 2017-12-01T10:48:12+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/ROMS_WAD_7832/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/stpctl.F90
r8865 r8870 22 22 USE lib_mpp ! distributed memory computing 23 23 USE lib_fortran ! Fortran routines library 24 ! USE wet_dry, ONLY: ln_wd, ln_rwd , rn_ssh_ref ! reference depth for negative bathy25 24 26 25 IMPLICIT NONE … … 151 150 DO jj = 1, jpj 152 151 DO ji = 1, jpi 153 ! IF( (ln_wd .OR. ln_rwd)) THEN154 ! IF( tmask(ji,jj,1) == 1) zsshmax = MAX( zsshmax, ABS(sshn(ji,jj)+rn_ssh_ref) )155 ! ELSE156 152 IF( tmask(ji,jj,1) == 1) zsshmax = MAX( zsshmax, ABS(sshn(ji,jj)) ) 157 ! ENDIF158 153 END DO 159 154 END DO
Note: See TracChangeset
for help on using the changeset viewer.