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/LBC/mppini.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/LBC/mppini.F90

    r14986 r15540  
    10661066      ! 
    10671067      INTEGER                          ::   inumsave                     ! local logical unit 
    1068       REAL(wp), DIMENSION(kicnt,kjcnt) ::   zbot, zbdy 
     1068      REAL(dp), DIMENSION(kicnt,kjcnt) ::   zbot, zbdy 
    10691069      !!---------------------------------------------------------------------- 
    10701070      ! 
    … …  
    11581158      INTEGER ::   ijso, ijno, ijst, ijsz  
    11591159      LOGICAL ::   llsave 
    1160       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   zmsk 
     1160      REAL(dp), DIMENSION(:,:), ALLOCATABLE ::   zmsk 
    11611161      LOGICAL , DIMENSION(Ni_0,Nj_0,1)      ::   lloce 
    11621162      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.