New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3490 for branches/2012/dev_r3327_MERCATOR1_BDY/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2012-10-08T16:27:20+02:00 (12 years ago)
Author:
cbricaud
Message:

add Jerome Chanut 's modications for BDY, Mercator_1 2012 task

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3327_MERCATOR1_BDY/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3367 r3490  
    7676   USE mod_ioclient 
    7777#endif 
     78   USE sbctide, ONLY: lk_tide 
     79 
    7880 
    7981   IMPLICIT NONE 
    … …  
    318320                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    319321 
    320                             CALL tide_init( nit000 )    ! Initialisation of the tidal harmonics 
     322      IF( lk_tide       )   CALL tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    321323 
    322324      IF( lk_bdy        )   CALL     bdy_init       ! Open boundaries initialisation 
Note: See TracChangeset for help on using the changeset viewer.