Changeset 10853 for NEMO/branches/UKMO


Ignore:
Timestamp:
2019-04-09T11:04:31+02:00 (20 months ago)
Author:
andmirek
Message:

ticket #2197 bugfix and change in NaN detection

Location:
NEMO/branches/UKMO/dev_r10037_GPU/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/SBC/sbcdcy.F90

    r10843 r10853  
    239239      END DO   
    240240      ! 
    241       IF( PRESENT(l_mask) .AND. l_mask ) THEN 
    242         zqsrout(:,:) = float(imask_night(:,:)) 
     241      IF( PRESENT(l_mask) ) THEN 
     242        IF(l_mask) zqsrout(:,:) = float(imask_night(:,:)) 
    243243      ENDIF 
    244244      ! 
  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/stpctl.F90

    r10843 r10853  
    2525   USE lib_mpp         ! distributed memory computing 
    2626   USE wet_dry,   ONLY : ll_wd, ssh_ref    ! reference depth for negative bathy 
    27  
     27   USE ieee_arithmetic !Replacement for ISNAN function 
    2828   USE netcdf          ! NetCDF library 
    2929   IMPLICIT NONE 
     
    127127         &  zmax(4) >= 100._wp .OR.   &                    ! too large sea surface salinity ( > 100 ) 
    128128         &  zmax(4) <    0._wp .OR.   &                    ! too large sea surface salinity (keep this line for sea-ice) 
    129          &  ISNAN( zmax(1) + zmax(2) + zmax(3) )  ) THEN   ! NaN encounter in the tests 
     129         &  ieee_is_nan( zmax(1) + zmax(2) + zmax(3) )  ) THEN   ! NaN encounter in the tests 
    130130         IF( lk_mpp ) THEN 
    131131            CALL mpp_maxloc( ABS(sshn)        , ssmask(:,:)  , zzz, iih , ijh        ) 
Note: See TracChangeset for help on using the changeset viewer.