Changeset 2964

Timestamp:

2011-10-20T10:25:48+02:00 (13 years ago)

Author:

cbricaud

Message:

 

File:

• branches/2011/dev_r2787_MERCATOR2_tidalharm/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90 (modified) (2 diffs)

branches/2011/dev_r2787_MERCATOR2_tidalharm/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

@@ -92 +92 @@
       ENDIF
 
-
       ! Basic checks on harmonic analysis time window:
       ! ----------------------------------------------
@@ -135 +134 @@
       CALL tide_harmo(ana_freq, vt, ut , ft, name ,nb_ana)
 
-      IF(lwp) WRITE(numout,*) 'Analysed frequency  : ','name ','Frequency '
+      IF(lwp) WRITE(numout,*) 'Analysed frequency  : ',nb_ana ,'Frequency '
 
       DO jh = 1, nb_ana