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/ISF/isfrst.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/ISF/isfrst.F90

    r14072 r15540  
    3535      !! 
    3636      !!-------------------------- OUT -------------------------------------- 
    37       REAL(wp), DIMENSION(jpi,jpj)     , INTENT(  out) :: pfwf_b 
    38       REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(  out) :: ptsc_b 
     37      REAL(dp), DIMENSION(jpi,jpj)     , INTENT(  out) :: pfwf_b 
     38      REAL(dp), DIMENSION(jpi,jpj,jpts), INTENT(  out) :: ptsc_b 
    3939      !!-------------------------- IN  -------------------------------------- 
    4040      CHARACTER(LEN=3)                 , INTENT(in   ) :: cdisf 
    41       REAL(wp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf 
    42       REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc 
     41      REAL(dp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf 
     42      REAL(dp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc 
    4343      !!---------------------------------------------------------------------- 
    4444      CHARACTER(LEN=256) :: cfwf_b, chc_b, csc_b 
    … …  
    7272      INTEGER                          , INTENT(in   ) :: kt 
    7373      CHARACTER(LEN=3)                 , INTENT(in   ) :: cdisf 
    74       REAL(wp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf 
    75       REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc 
     74      REAL(dp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf 
     75      REAL(dp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc 
    7676      !!--------------------------------------------------------------------- 
    7777      CHARACTER(LEN=256) :: cfwf_b, chc_b, csc_b 
Note: See TracChangeset for help on using the changeset viewer.