- Timestamp:
- 2019-04-09T11:04:31+02:00 (5 years ago)
- 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 239 239 END DO 240 240 ! 241 IF( PRESENT(l_mask) .AND. l_mask) THEN242 zqsrout(:,:) = float(imask_night(:,:))241 IF( PRESENT(l_mask) ) THEN 242 IF(l_mask) zqsrout(:,:) = float(imask_night(:,:)) 243 243 ENDIF 244 244 ! -
NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/stpctl.F90
r10843 r10853 25 25 USE lib_mpp ! distributed memory computing 26 26 USE wet_dry, ONLY : ll_wd, ssh_ref ! reference depth for negative bathy 27 27 USE ieee_arithmetic !Replacement for ISNAN function 28 28 USE netcdf ! NetCDF library 29 29 IMPLICIT NONE … … 127 127 & zmax(4) >= 100._wp .OR. & ! too large sea surface salinity ( > 100 ) 128 128 & 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 tests129 & ieee_is_nan( zmax(1) + zmax(2) + zmax(3) ) ) THEN ! NaN encounter in the tests 130 130 IF( lk_mpp ) THEN 131 131 CALL mpp_maxloc( ABS(sshn) , ssmask(:,:) , zzz, iih , ijh )
Note: See TracChangeset
for help on using the changeset viewer.