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 15371 – NEMO

Changeset 15371


Ignore:
Timestamp:
2021-10-14T17:02:36+02:00 (2 years ago)
Author:
smueller
Message:

Optional replacement of non-standard intrinsic function ISNAN (ticket #2720)

Location:
NEMO/releases/r4.0/r4.0-HEAD/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/lib_fortran.F90

    r10425 r15371  
    3434#if defined key_nosignedzero 
    3535   PUBLIC SIGN 
     36#endif 
     37#if defined key_noisnan 
     38   PUBLIC ISNAN 
    3639#endif 
    3740 
     
    486489#endif 
    487490 
     491#if defined key_noisnan 
     492!$AGRIF_DO_NOT_TREAT 
     493   FUNCTION ISNAN(pa) 
     494      !!----------------------------------------------------------------------- 
     495      !!                  ***  FUNCTION ISNAN  *** 
     496      !! 
     497      !! ** Purpose: provide an alternative to non-standard intrinsic function 
     498      !!             ISNAN 
     499      !!----------------------------------------------------------------------- 
     500      USE, INTRINSIC ::   ieee_arithmetic 
     501      !! 
     502      REAL(wp), INTENT(in) ::   pa 
     503      LOGICAL              ::   ISNAN 
     504      !!----------------------------------------------------------------------- 
     505      ! 
     506      ISNAN = ieee_is_nan(pa) 
     507   END FUNCTION ISNAN 
     508!$AGRIF_END_DO_NOT_TREAT 
     509#endif 
     510 
    488511   !!====================================================================== 
    489512END MODULE lib_fortran 
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/stpctl.F90

    r13137 r15371  
    2727   USE wet_dry,   ONLY : ll_wd, ssh_ref    ! reference depth for negative bathy 
    2828 
     29   USE lib_fortran     ! Fortran utilities 
    2930   USE netcdf          ! NetCDF library 
    3031   IMPLICIT NONE 
Note: See TracChangeset for help on using the changeset viewer.