Changeset 10836

Timestamp:

2019-04-03T17:43:15+02:00 (4 years ago)

Author:

smueller

Message:

Correction of the declaration of variable tide_components in subroutine dia_harm_init of module diaharm (ticket #2194)

File:

• NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/DIA/diaharm.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/DIA/diaharm.F90

@@ -71 +71 @@
       INTEGER :: jh, nhan, jk, ji
       INTEGER ::   ios                 ! Local integer output status for namelist read
-      TYPE(tide), PUBLIC, DIMENSION(:), POINTER ::   tide_components ! Selected tidal components
+      TYPE(tide),          DIMENSION(:), POINTER ::   tide_components ! Selected tidal components
       TYPE(tide_harmonic), DIMENSION(:), POINTER ::   tide_harmonics  ! Oscillation parameters of selected tidal components