Ignore:
Timestamp:
2016-06-13T09:38:23+02:00 (5 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/BDY/bdytides.F90

    r6370 r6686  
    5151   END TYPE TIDES_DATA 
    5252   INTEGER, PUBLIC, PARAMETER                  ::   jptides_max = 15      !: Max number of tidal contituents 
    53       LOGICAL, PUBLIC                           ::   ln_harm_ana             !: =T  Compute harmonic Analysis 
     53      LOGICAL, PUBLIC                           ::   ln_harm_ana_store    !: =T Stores data for  harmonic Analysis 
     54      LOGICAL, PUBLIC                           ::   ln_harm_ana_compute     !: =T  Compute harmonic Analysis 
    5455      LOGICAL, PUBLIC                           ::   ln_harmana_read         !: =T  Decide to do the analysis  
    5556                                                                             !from scratch or continue previous run 
     
    9495      TYPE(MAP_POINTER), DIMENSION(jpbgrd)      ::   ibmap_ptr           !: array of pointers to nbmap 
    9596      !! 
    96       NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj, ln_harm_ana, ln_harmana_read 
     97      NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj, ln_harm_ana_store, ln_harm_ana_compute, ln_harmana_read 
    9798      !!---------------------------------------------------------------------- 
    9899 
     
    129130            IF(lwp) WRITE(numout,*) '             assume complex conjugate   : ', ln_bdytide_conj 
    130131            IF(lwp) WRITE(numout,*) '             Number of tidal components to read: ', nb_harmo 
    131             IF(lwp) WRITE(numout,*) '             Use PCOMS harmonic ananalysis or not: ', ln_harm_ana 
     132            IF(lwp) WRITE(numout,*) '             Use PCOMS harmonic ananalysis or not: ', ln_harm_ana_store 
     133            IF(lwp) WRITE(numout,*) '             Compute Final  harmonic ananalysis or not: ', ln_harm_ana_compute 
    132134            IF(lwp) WRITE(numout,*) '             Read in previous days harmonic data or start afresh: ', ln_harmana_read 
    133135            IF(lwp) THEN  
Note: See TracChangeset for help on using the changeset viewer.