Changeset 13049 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE
- Timestamp:
- 2020-06-05T09:53:58+02:00 (4 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DIA/diawri.F90
r10888 r13049 443 443 !!---------------------------------------------------------------------- 444 444 ! 445 !no diagnostics without key_iomput 446 RETURN 447 445 448 IF( ln_timing ) CALL timing_start('dia_wri') 446 449 ! -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90
r10888 r13049 35 35 USE ice , ONLY : jpl 36 36 #endif 37 USE domngb ! ocean space and time domain38 USE phycst ! physical constants39 37 USE dianam ! build name of file 40 38 USE xios 41 39 # endif 40 USE domngb ! ocean space and time domain 41 USE phycst ! physical constants 42 42 USE ioipsl, ONLY : ju2ymds ! for calendar 43 43 USE crs ! Grid coarsening -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/SBC/sbcdcy.F90
r10888 r13049 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/NEMO_4.0_mirror_SI3_GPU/src/OCE/stpctl.F90
r10888 r13049 26 26 USE zdf_oce , ONLY : ln_zad_Aimp ! ocean vertical physics variables 27 27 USE wet_dry, ONLY : ll_wd, ssh_ref ! reference depth for negative bathy 28 28 USE ieee_arithmetic !Replacement for ISNAN function 29 29 USE netcdf ! NetCDF library 30 30 IMPLICIT NONE … … 153 153 & zmax(4) >= 100._wp .OR. & ! too large sea surface salinity ( > 100 ) 154 154 & zmax(4) < 0._wp .OR. & ! too large sea surface salinity (keep this line for sea-ice) 155 & I SNAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN ! NaN encounter in the tests155 & IEEE_IS_NAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN ! NaN encounter in the tests 156 156 IF( lk_mpp .AND. ln_ctl ) THEN 157 157 CALL mpp_maxloc( 'stpctl', ABS(sshn) , ssmask(:,:) , zzz, ih )
Note: See TracChangeset
for help on using the changeset viewer.