Changeset 13049


Ignore:
Timestamp:
2020-06-05T09:53:58+02:00 (4 months ago)
Author:
andmirek
Message:

Ticket #2482: fixes to build with PGI compiler

Location:
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DIA/diawri.F90

    r10888 r13049  
    443443      !!---------------------------------------------------------------------- 
    444444      !  
     445!no diagnostics without key_iomput 
     446      RETURN 
     447 
    445448      IF( ln_timing )   CALL timing_start('dia_wri') 
    446449      ! 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/IOM/iom.F90

    r10888 r13049  
    3535   USE ice      , ONLY :   jpl 
    3636#endif 
    37    USE domngb          ! ocean space and time domain 
    38    USE phycst          ! physical constants 
    3937   USE dianam          ! build name of file 
    4038   USE xios 
    4139# endif 
     40   USE domngb          ! ocean space and time domain 
     41   USE phycst          ! physical constants 
    4242   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
    4343   USE crs             ! Grid coarsening 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/SBC/sbcdcy.F90

    r10888 r13049  
    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/NEMO_4.0_mirror_SI3_GPU/src/OCE/stpctl.F90

    r10888 r13049  
    2626   USE zdf_oce ,  ONLY : ln_zad_Aimp       ! ocean vertical physics variables 
    2727   USE wet_dry,   ONLY : ll_wd, ssh_ref    ! reference depth for negative bathy 
    28  
     28   USE ieee_arithmetic !Replacement for ISNAN function 
    2929   USE netcdf          ! NetCDF library 
    3030   IMPLICIT NONE 
     
    153153         &  zmax(4) >= 100._wp .OR.   &                    ! too large sea surface salinity ( > 100 ) 
    154154         &  zmax(4) <    0._wp .OR.   &                    ! too large sea surface salinity (keep this line for sea-ice) 
    155          &  ISNAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN   ! NaN encounter in the tests 
     155         &  IEEE_IS_NAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN   ! NaN encounter in the tests 
    156156         IF( lk_mpp .AND. ln_ctl ) THEN 
    157157            CALL mpp_maxloc( 'stpctl', ABS(sshn)        , ssmask(:,:)  , zzz, ih  ) 
Note: See TracChangeset for help on using the changeset viewer.