Changeset 5084

Timestamp:

2015-02-16T16:59:56+01:00 (10 years ago)

Author:

timgraham

Message:

Fix for ticket 1366
tide phase speeds were being printed before being initialised in bdytide_init. As they are printed anyway in sbc_tide I have simply removed the print from bdytide_init

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -125 +125 @@
             IF(lwp) WRITE(numout,*) '             Number of tidal components to read: ', nb_harmo
             IF(lwp) THEN 
-                    WRITE(numout,*) '             Tidal cpt name    -     Phase speed (deg/hr)'            
+                    WRITE(numout,*) '             Tidal components: ' 
                DO itide = 1, nb_harmo
-                  WRITE(numout,*)  '             ', Wave(ntide(itide))%cname_tide, omega_tide(itide)   
+                  WRITE(numout,*)  '                 ', Wave(ntide(itide))%cname_tide 
                END DO
             ENDIF