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 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/trc_oce.F90 – NEMO

Ignore:
Timestamp:
2021-11-26T12:27:56+01:00 (3 years ago)
Author:
sparonuz
Message:

Mixed precision version, tested up to 30 years on ORCA2.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r13286 r15540  
    2626   LOGICAL , PUBLIC ::   l_co2cpl  = .false.   !: atmospheric pco2 recieved from oasis 
    2727   LOGICAL , PUBLIC ::   l_offline = .false.   !: offline passive tracers flag 
    28    REAL(wp), PUBLIC ::   r_si2                 !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
     28   REAL(dp), PUBLIC ::   r_si2                 !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
    2929   ! 
    3030   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3     !: light absortion coefficient 
    … …  
    7373      !! Reference  : Lengaigne et al. 2007, Clim. Dyn., V28, 5, 503-516. 
    7474      !!---------------------------------------------------------------------- 
    75       REAL(wp), DIMENSION(3,61), INTENT(out) ::   prgb   ! tabulated attenuation coefficient 
     75      REAL(dp), DIMENSION(3,61), INTENT(out) ::   prgb   ! tabulated attenuation coefficient 
    7676      ! 
    7777      INTEGER  ::   jc     ! dummy loop indice 
    … …  
    178178      !!                          attenuation coefficient (from JM Andre) 
    179179      !!---------------------------------------------------------------------- 
    180       REAL(wp), DIMENSION(3,61), INTENT(out) ::   prgb   ! tabulated attenuation coefficient 
     180      REAL(dp), DIMENSION(3,61), INTENT(out) ::   prgb   ! tabulated attenuation coefficient 
    181181      ! 
    182182      INTEGER  ::   jc, jb ! dummy loop indice 
    183183      INTEGER  ::   irgb   ! temporary integer 
    184       REAL(wp) ::   zchl   ! temporary scalar 
     184      REAL(dp) ::   zchl   ! temporary scalar 
    185185      INTEGER  ::   numlight 
    186186      !!---------------------------------------------------------------------- 
    … …  
    229229      !! 
    230230      !!---------------------------------------------------------------------- 
    231       REAL(wp), INTENT(in) ::   prldex    ! longest depth of extinction 
     231      REAL(dp), INTENT(in) ::   prldex    ! longest depth of extinction 
    232232      REAL(wp), INTENT(in) ::   pqsr_frc  ! frac. solar radiation which penetrates  
    233233      ! 
Note: See TracChangeset for help on using the changeset viewer.