Changeset 13226 for NEMO/trunk/src/OCE/TDE

Timestamp:

2020-07-02T16:24:31+02:00 (7 months ago)

Author:

orioltp

Message:

Merging dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation into the trunk

File:

• NEMO/trunk/src/OCE/TDE/tide_mod.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/TDE/tide_mod.F90

@@ -723 +723 @@
       !! ** Action  :   pot_astro   actronomical potential
       !!----------------------------------------------------------------------      
-      REAL, INTENT(in)              ::   pdelta      ! Temporal offset in seconds
+      REAL(wp), INTENT(in)          ::   pdelta      ! Temporal offset in seconds
       INTEGER, INTENT(IN)           ::   Kmm         ! Time level index
       INTEGER                       ::   jk          ! Dummy loop index