New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12856 for NEMO/branches/2020/r12581_ticket2418/tests/CANAL/MY_SRC/stpctl.F90 – NEMO

Ignore:
Timestamp:
2020-05-02T11:55:39+02:00 (4 years ago)
Author:
smasson
Message:

r12581_ticket2418: stupid bugfix following [12855], see #2418

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r12581_ticket2418/tests/CANAL/MY_SRC/stpctl.F90

    r12855 r12856  
    175175!!$         &  zmax(4) >= 100._wp .OR.   &                   ! too large sea surface salinity ( > 100 ) 
    176176!!$         &  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 tests 
    178          &  ABS(   zmax(1) + zmax(2) + zmax(3) ) > HUGE(1._wp) ) THEN    ! Infinity encounter in the tests 
     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 
    179179         ! 
    180180         iloc(:,:) = 0 
Note: See TracChangeset for help on using the changeset viewer.