Changeset 10822 for NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/SBC/sbctide.F90

Timestamp:

2019-04-01T17:50:07+02:00 (5 years ago)

Author:

smueller

Message:

Addition of a new type (tide_harmonics in module tide_mod), two replacements of four separate arrays for the storage of oscillation parameters by one array of variables of this new type (in modules diaharm and tide_mod), and related adjustments in various modules (bdytides, diaharm, sbctides, and tide_mod) (ticket #2194)

File:

• NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/SBC/sbctide.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/SBC/sbctide.F90

@@ -61 +61 @@
             kt_tide = kt 
          ENDIF
-         CALL tide_harmo( omega_tide, v0tide, utide, ftide, nb_harmo )
+         CALL tide_harmo(tide_components, tide_harmonics) ! Update oscillation parameters of tidal components
          !
          !
@@ -69 +69 @@
             WRITE(numout,*) '~~~~~~~~ '
             DO jk = 1, nb_harmo
-               WRITE(numout,*) tide_components(jk)%cname_tide, utide(jk), ftide(jk), v0tide(jk), omega_tide(jk)
+               WRITE(numout,*) tide_harmonics(jk)%cname_tide, tide_harmonics(jk)%u, &
+                  &            tide_harmonics(jk)%f,tide_harmonics(jk)%v0, tide_harmonics(jk)%omega
             END DO
          ENDIF