- Timestamp:
- 2018-02-28T17:23:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r9213 r9367 313 313 IF( ln_timing ) CALL timing_start( 'nemo_init') 314 314 ! 315 CALL phy_cst ! Physical constants316 CALL eos_init ! Equation of state317 IF( lk_c1d ) CALL c1d_init ! 1D column configuration318 CALL dom_init 319 IF( ln_ctl ) CALL prt_ctl_init ! Print control315 CALL phy_cst ! Physical constants 316 CALL eos_init ! Equation of state 317 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 318 CALL dom_init("OPA") ! Domain 319 IF( ln_ctl ) CALL prt_ctl_init ! Print control 320 320 321 321 CALL istate_init ! ocean initial state (Dynamics and tracers)
Note: See TracChangeset
for help on using the changeset viewer.