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