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 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DOM/dtatsd.F90 – NEMO

Ignore:
Timestamp:
2020-12-18T18:52:57+01:00 (4 years ago)
Author:
mcastril
Message:

Add Mixed Precision support by Oriol Tintó

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DOM/dtatsd.F90

    r14200 r14219  
    136136      !! ** Action  :   ptsd   T-S data on medl mesh and interpolated at time-step kt 
    137137      !!---------------------------------------------------------------------- 
    138       INTEGER                          , INTENT(in   ) ::   kt     ! ocean time-step 
    139       REAL(wp), DIMENSION(A2D(nn_hls),jpk,jpts), INTENT(  out) ::   ptsd   ! T & S data 
     138      INTEGER                              , INTENT(in   ) ::   kt     ! ocean time-step 
     139      REAL(dp), DIMENSION(jpi,jpj,jpk,jpts), INTENT(  out) ::   ptsd   ! T & S data 
    140140      ! 
    141141      INTEGER ::   ji, jj, jk, jl, jkk   ! dummy loop indicies 
Note: See TracChangeset for help on using the changeset viewer.