Changeset 12856 for NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90
- Timestamp:
- 2020-05-02T11:55:39+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90
r12855 r12856 175 175 & zmax(4) >= 100._wp .OR. & ! too large sea surface salinity ( > 100 ) 176 176 & zmax(4) < 0._wp .OR. & ! too large sea surface salinity (keep this line for sea-ice) 177 & ISNAN( zmax(1) + zmax(2) + zmax(3) ) ! NaN encounter in the tests178 & ABS( zmax(1) + zmax(2) + zmax(3) ) > HUGE(1._wp) ) THEN 177 & ISNAN( zmax(1) + zmax(2) + zmax(3) ) .OR. & ! NaN encounter in the tests 178 & ABS( zmax(1) + zmax(2) + zmax(3) ) > HUGE(1._wp) ) THEN ! Infinity encounter in the tests 179 179 ! 180 180 iloc(:,:) = 0
Note: See TracChangeset
for help on using the changeset viewer.