- Timestamp:
- 2012-11-26T11:46:39+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_MERCATOR_2012/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3625 r3651 49 49 USE ice_domain_size, only: nx_global, ny_global 50 50 #endif 51 USE tideini ! tidal components initialization (tide_ini routine) 51 52 USE obcini ! open boundary cond. initialization (obc_ini routine) 52 53 USE bdyini ! open boundary cond. initialization (bdy_init routine) 53 54 USE bdydta ! open boundary cond. initialization (bdy_dta_init routine) 54 USE bdytides ! open boundary cond. initialization ( tide_init routine)55 USE bdytides ! open boundary cond. initialization (bdytide_init routine) 55 56 USE istate ! initial state setting (istate_init routine) 56 57 USE ldfdyn ! lateral viscosity setting (ldfdyn_init routine) … … 80 81 USE mod_ioclient 81 82 #endif 83 USE sbctide, ONLY: lk_tide 84 82 85 83 86 IMPLICIT NONE … … 322 325 323 326 IF( lk_obc ) CALL obc_init ! Open boundaries 327 328 CALL istate_init ! ocean initial state (Dynamics and tracers) 329 330 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 331 324 332 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 325 333 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays 326 IF( lk_bdy ) CALL tide_init! Open boundaries initialisation of tidal harmonic forcing334 IF( lk_bdy ) CALL bdytide_init ! Open boundaries initialisation of tidal harmonic forcing 327 335 328 336 CALL dyn_nept_init ! simplified form of Neptune effect 329 330 CALL istate_init ! ocean initial state (Dynamics and tracers)331 337 332 338 ! ! Ocean physics
Note: See TracChangeset
for help on using the changeset viewer.