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 14894 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS – NEMO

Ignore:
Timestamp:
2021-05-20T18:05:17+02:00 (3 years ago)
Author:
sparonuz
Message:

Added wp specification to some real declarations

Location:
NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/maxdist.h90

    r10068 r14894  
    55   !!---------------------------------------------------------------------- 
    66 
    7    REAL FUNCTION maxdist( pxv, pyv ) 
     7   REAL(wp) FUNCTION maxdist( pxv, pyv ) 
    88      !!---------------------------------------------------------------------- 
    99      !!                    ***  FUNCTION maxdist *** 

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_grid.F90

    r14650 r14894  
    5252 
    5353   !! Default values 
    54    REAL, PUBLIC :: rn_gridsearchres = 0.5   ! Resolution of grid 
     54   REAL(WP), PUBLIC :: rn_gridsearchres = 0.5   ! Resolution of grid 
    5555   INTEGER, PRIVATE :: gsearch_nlons_def    ! Num of longitudes 
    5656   INTEGER, PRIVATE :: gsearch_nlats_def    ! Num of latitudes 
    … …  
    685685      INTEGER, DIMENSION(histsize) :: & 
    686686         & histx1, histx2, histy1, histy2 
    687       REAL, DIMENSION(histsize) :: & 
     687      REAL(wp), DIMENSION(histsize) :: & 
    688688         & fhistx1, fhistx2, fhisty1, fhisty2 
    689689      REAL(wp) :: histtol 
Note: See TracChangeset for help on using the changeset viewer.