Changeset 15641 for NEMO/branches/2021

Timestamp:

2022-01-14T10:26:50+01:00 (2 years ago)

Author:

sparonuz

Message:

In function 'obs_rotvel' updated dummy from assumed-size to assumed-shape, since there was no reason for such an old statement.

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_rot_vel.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_rot_vel.F90

@@ -58 +58 @@
       TYPE(obs_prof), INTENT(INOUT) :: profdata    ! Profile data to be read
       INTEGER, INTENT(IN) :: k2dint     ! Horizontal interpolation methed
-      REAL(dp), DIMENSION(*) :: &
+      REAL(dp), DIMENSION(:), INTENT(OUT) :: &
          & pu, &
          & pv