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/OBS/obs_write.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/OBS/obs_write.F90

    r14644 r15540  
    100100      INTEGER :: iadd 
    101101      INTEGER :: iext 
    102       REAL(wp) :: zpres 
     102      REAL(dp) :: zpres 
    103103 
    104104      IF ( PRESENT( padd ) ) THEN 
    … …  
    586586      INTEGER :: inumgoodobs 
    587587      INTEGER :: inumgoodobsmpp 
    588       REAL(wp) :: zsumx 
    589       REAL(wp) :: zsumx2 
    590       REAL(wp) :: zomb 
     588      REAL(dp) :: zsumx 
     589      REAL(dp) :: zsumx2 
     590      REAL(dp) :: zomb 
    591591       
    592592 
Note: See TracChangeset for help on using the changeset viewer.