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/src/SAS/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/src/SAS/stpctl.F90

    r12855 r12856  
    138138         &  zmax(2) >   10._wp .OR.   &                   ! too large ice velocity ( > 10 m/s) 
    139139         &  zmax(3) >  101._wp .OR.   &                   ! too cold ice temperature ( < -100 degC) 
    140          &  ISNAN( zmax(1) + zmax(2) + zmax(3) )          ! NaN encounter in the tests 
    141          &  ABS(   zmax(1) + zmax(2) + zmax(3) ) > HUGE(1._wp) ) THEN    ! Infinity encounter in the tests 
     140         &  ISNAN( zmax(1) + zmax(2) + zmax(3) ) .OR.   &               ! NaN encounter in the tests 
     141         &  ABS(   zmax(1) + zmax(2) + zmax(3) ) > HUGE(1._wp) ) THEN   ! Infinity encounter in the tests 
    142142         ! 
    143143         iloc(:,:) = 0 
Note: See TracChangeset for help on using the changeset viewer.