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/DIA/diahsb.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/DIA/diahsb.F90

    r14219 r15540  
    4040   LOGICAL, PUBLIC ::   ln_diahsb   !: check the heat and salt budgets 
    4141 
    42    REAL(wp) ::   surf_tot              ! ocean surface 
    43    REAL(wp) ::   frc_t, frc_s, frc_v   ! global forcing trends 
    44    REAL(wp) ::   frc_wn_t, frc_wn_s    ! global forcing trends 
     42   REAL(dp) ::   surf_tot              ! ocean surface 
     43   REAL(dp) ::   frc_t, frc_s, frc_v   ! global forcing trends 
     44   REAL(dp) ::   frc_wn_t, frc_wn_s    ! global forcing trends 
    4545   ! 
    4646   REAL(dp), DIMENSION(:,:)  , ALLOCATABLE ::   surf  
    4747   REAL(dp), DIMENSION(:,:)  , ALLOCATABLE  :: surf_ini 
    48    REAL(wp), DIMENSION(:,:)  , ALLOCATABLE :: ssh_ini                            ! 
    49    REAL(wp), DIMENSION(:,:)  , ALLOCATABLE ::   ssh_hc_loc_ini, ssh_sc_loc_ini   ! 
     48   REAL(dp), DIMENSION(:,:)  , ALLOCATABLE :: ssh_ini                            ! 
     49   REAL(dp), DIMENSION(:,:)  , ALLOCATABLE ::   ssh_hc_loc_ini, ssh_sc_loc_ini   ! 
    5050   REAL(dp), DIMENSION(:,:,:), ALLOCATABLE  :: sc_loc_ini, e3t_ini               ! 
    51    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   hc_loc_ini                       ! 
    52    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   tmask_ini 
     51   REAL(dp), DIMENSION(:,:,:), ALLOCATABLE ::   hc_loc_ini                       ! 
     52   REAL(dp), DIMENSION(:,:,:), ALLOCATABLE ::   tmask_ini 
    5353 
    5454   !! * Substitutions 
    … …  
    7878      REAL(wp)   ::   zdiff_hc    , zdiff_sc      ! heat and salt content variations 
    7979      REAL(wp)   ::   zdiff_hc1   , zdiff_sc1     !  -         -     -        -  
    80       REAL(wp)   ::   zdiff_v1          ! volume variation 
     80      REAL(dp)   ::   zdiff_v1          ! volume variation 
    8181      REAL(dp)   ::   zdiff_v2 
    8282      REAL(wp)   ::   zerr_hc1    , zerr_sc1      ! heat and salt content misfit 
Note: See TracChangeset for help on using the changeset viewer.