Changeset 15491 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step.F90

Timestamp:

2021-11-10T14:48:04+01:00 (3 years ago)

Author:

hadjt

Message:

DIA/diaharm_fast.F90

Harmonic analysis with restarts.

Working, but perhaps needs additional work

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step.F90

@@ -207 +207 @@
       IF( ln_diaptr  )   CALL dia_ptr                 ! Poleward adv/ldf TRansports diagnostics
       IF( ln_diaharm )   CALL dia_harm( kstp )        ! Tidal harmonic analysis
+      ! NB - new harmonic analysis 
+      IF( lk_diaharm_fast )                           &
+            &            CALL dia_harm_fast( kstp )   ! Tidal harmonic analysis - restart and faster version
+      ! END NB
                          CALL dia_prod( kstp )        ! ocean model: product diagnostics
                          CALL dia_wri ( kstp )        ! ocean model: outputs