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/diacfl.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/diacfl.F90

    r14644 r15540  
    2727   ! 
    2828   INTEGER, DIMENSION(3) ::   nCu_loc, nCv_loc, nCw_loc   ! U, V, and W run max locations in the global domain 
    29    REAL(wp)              ::   rCu_max, rCv_max, rCw_max   ! associated run max Courant number  
     29   REAL(dp)              ::   rCu_max, rCv_max, rCw_max   ! associated run max Courant number  
    3030 
    3131   PUBLIC   dia_cfl       ! routine called by step.F90 
    … …  
    5353      ! 
    5454      INTEGER                          ::   ji, jj, jk                       ! dummy loop indices 
    55       REAL(wp)                         ::   zCu_max, zCv_max, zCw_max        ! local scalars 
     55      REAL(dp)                         ::   zCu_max, zCv_max, zCw_max        ! local scalars 
    5656      INTEGER , DIMENSION(3)           ::   iloc_u , iloc_v , iloc_w , iloc  ! workspace 
    57       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zCu_cfl, zCv_cfl, zCw_cfl        ! workspace 
     57      REAL(dp), DIMENSION(jpi,jpj,jpk) ::   zCu_cfl, zCv_cfl, zCw_cfl        ! workspace 
    5858      LOGICAL , DIMENSION(jpi,jpj,jpk) ::   llmsk 
    5959      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.