Changeset 5084


Ignore:
Timestamp:
2015-02-16T16:59:56+01:00 (6 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r4758 r5084  
    125125            IF(lwp) WRITE(numout,*) '             Number of tidal components to read: ', nb_harmo 
    126126            IF(lwp) THEN  
    127                     WRITE(numout,*) '             Tidal cpt name    -     Phase speed (deg/hr)'             
     127                    WRITE(numout,*) '             Tidal components: '  
    128128               DO itide = 1, nb_harmo 
    129                   WRITE(numout,*)  '             ', Wave(ntide(itide))%cname_tide, omega_tide(itide)   
     129                  WRITE(numout,*)  '                 ', Wave(ntide(itide))%cname_tide  
    130130               END DO 
    131131            ENDIF  
Note: See TracChangeset for help on using the changeset viewer.