Changeset 6116
- Timestamp:
- 2015-12-18T10:50:49+01:00 (8 years ago)
- Location:
- branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
-
BDY/bdytides.F90 (modified) (3 diffs)
-
step.F90 (modified) (1 diff)
-
step_oce.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r6061 r6116 50 50 REAL(wp), POINTER, DIMENSION(:,:,:) :: v !: Tidal constituents : V (after nodal cor.) 51 51 END TYPE TIDES_DATA 52 INTEGER, PUBLIC, PARAMETER :: jptides_max = 15 !: Max number of tidal contituents 53 LOGICAL, PUBLIC :: ln_harm_ana !: =T Compute harmonic Analysis 52 54 53 55 !$AGRIF_DO_NOT_TREAT … … 90 92 TYPE(MAP_POINTER), DIMENSION(jpbgrd) :: ibmap_ptr !: array of pointers to nbmap 91 93 !! 92 NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj 94 NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj, ln_harm_ana 93 95 !!---------------------------------------------------------------------- 94 96 … … 125 127 IF(lwp) WRITE(numout,*) ' assume complex conjugate : ', ln_bdytide_conj 126 128 IF(lwp) WRITE(numout,*) ' Number of tidal components to read: ', nb_harmo 129 IF(lwp) WRITE(numout,*) ' Use PCOMS harmonic ananalysis or not: ', ln_harm_ana 127 130 IF(lwp) THEN 128 131 WRITE(numout,*) ' Tidal components: ' -
branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC/step.F90
r6061 r6116 365 365 ENDIF 366 366 #endif 367 IF( ln_harm_ana ) CALL harm_ana( kstp ) ! Harmonic analysis of tides 367 368 ! 368 369 IF( nn_timing == 1 .AND. kstp == nit000 ) CALL timing_reset -
branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r6061 r6116 106 106 USE prtctl ! Print control (prt_ctl routine) 107 107 108 USE harmonic_analysis ! harmonic analysis of tides (harm_ana routine) 109 USE bdytides ! harmonic analysis of tides (harm_ana routine) 108 110 USE diaobs ! Observation operator 109 111
Note: See TracChangeset
for help on using the changeset viewer.
