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 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/FLO/flodom.F90 – NEMO

Ignore:
Timestamp:
2020-12-18T18:52:57+01:00 (4 years ago)
Author:
mcastril
Message:

Add Mixed Precision support by Oriol Tintó

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/FLO/flodom.F90

    r13286 r14219  
    3232   INTEGER , ALLOCATABLE, DIMENSION(:) ::   idomfl, ivtest, ihtest    !   -      
    3333   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   zgifl, zgjfl,  zgkfl      ! distances in indexes 
     34 
     35 
     36   !! * Substitutions 
     37#  include "single_precision_substitute.h90" 
    3438 
    3539   !!---------------------------------------------------------------------- 
    … …  
    229233            !        A--------|-----D 
    230234            ! 
    231             zdxab = flo_dstnce( flxx(jfl), flyy(jfl), glamf(iimfl(jfl)-1,ijmfl(jfl)-1), flyy(jfl) ) 
    232             zdyad = flo_dstnce( flxx(jfl), flyy(jfl), flxx(jfl), gphif(iimfl(jfl)-1,ijmfl(jfl)-1) ) 
     235            zdxab = flo_dstnce( flxx(jfl), flyy(jfl), CASTWP(glamf(iimfl(jfl)-1,ijmfl(jfl)-1)), flyy(jfl) ) 
     236            zdyad = flo_dstnce( flxx(jfl), flyy(jfl), flxx(jfl), CASTWP(gphif(iimfl(jfl)-1,ijmfl(jfl)-1)) ) 
    233237 
    234238            ! Translation of this distances (in meter) in indexes 
    … …  
    360364      !! ** Method  :  
    361365      !!---------------------------------------------------------------------- 
    362       REAL(wp) ::   & 
     366      REAL(dp) , INTENT(in)::   & 
    363367         pax, pay, pbx, pby,    &     ! ??? 
    364368         pcx, pcy, pdx, pdy,    &     ! ??? 
    365          px, py,                &     ! longitude and latitude 
    366369         ptx, pty                     ! ??? 
    367       LOGICAL ::  ldinmesh            ! ??? 
     370      REAL(wp),  INTENT(in)::   & 
     371         px, py                       ! longitude and latitude 
     372      LOGICAL , INTENT(out) ::  ldinmesh            ! ??? 
    368373      !! 
    369374      REAL(wp) ::   zabt, zbct, zcdt, zdat, zabpt, zbcpt, zcdpt, zdapt 
Note: See TracChangeset for help on using the changeset viewer.