- Timestamp:
- 2016-11-08T08:58:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r6772 r7204 395 395 IF( ln_ctl ) CALL prt_ctl_init ! Print control 396 396 397 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 398 397 399 CALL istate_init ! ocean initial state (Dynamics and tracers) 398 400 … … 408 410 CALL dyn_nept_init ! simplified form of Neptune effect 409 411 ! 410 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid412 IF( ln_crs ) CALL eos_init_crs ! Equation of state 411 413 ! 412 414 ! Ocean physics
Note: See TracChangeset
for help on using the changeset viewer.