- Timestamp:
- 2011-07-07T15:21:12+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_NOCS_NEPTUNE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r2715 r2795 66 66 USE c1d ! 1D configuration 67 67 USE step_c1d ! Time stepping loop for the 1D configuration 68 USE dynnept ! simplified form of Neptune effect 68 69 #if defined key_top 69 70 USE trcini ! passive tracer initialisation … … 296 297 IF( lk_obc ) CALL obc_init ! Open boundaries 297 298 IF( lk_bdy ) CALL bdy_init ! Unstructured open boundaries 299 300 CALL flush(numout) 301 CALL dyn_nept_init ! simplified form of Neptune effect 302 CALL flush(numout) 298 303 299 304 CALL istate_init ! ocean initial state (Dynamics and tracers)
Note: See TracChangeset
for help on using the changeset viewer.