New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6686 for branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2016-06-13T09:38:23+02:00 (8 years ago)
Author:
deazer
Message:

Added extra option to compute final harmonic analysis or not

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC/step.F90

    r6370 r6686  
    347347                               CALL dia_wri_state( 'output.abort', kstp ) 
    348348      ENDIF 
    349       IF( ln_harm_ana   )   CALL harm_ana( kstp )        ! Harmonic analysis of tides  
     349      IF( ln_harm_ana_store   )   CALL harm_ana( kstp )        ! Harmonic analysis of tides  
    350350      IF( kstp == nit000   )   THEN 
    351351                 CALL iom_close( numror )     ! close input  ocean restart file 
Note: See TracChangeset for help on using the changeset viewer.