Changeset 10928 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/nemogcm.F90
- Timestamp:
- 2019-05-03T17:44:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/nemogcm.F90
r10927 r10928 428 428 ! 429 429 IF( ln_diurnal_only ) THEN ! diurnal only: a subset of the initialisation routines 430 CALL istate_init( Nbb, Nnn )! ocean initial state (Dynamics and tracers)430 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 431 431 CALL sbc_init( Nbb, Nnn ) ! Forcings : surface module 432 432 CALL tra_qsr_init ! penetrative solar radiation qsr … … 440 440 ENDIF 441 441 442 CALL istate_init( Nbb, Nnn )! ocean initial state (Dynamics and tracers)442 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 443 443 444 444 ! ! external forcing … … 464 464 465 465 ! ! Dynamics 466 IF( lk_c1d ) CALL dyn_dmp_init ! internal momentum damping467 CALL dyn_adv_init ! advection (vector or flux form)468 CALL dyn_vor_init ! vorticity term including Coriolis469 CALL dyn_ldf_init ! lateral mixing470 CALL dyn_hpg_init 471 CALL dyn_spg_init ! surface pressure gradient466 IF( lk_c1d ) CALL dyn_dmp_init ! internal momentum damping 467 CALL dyn_adv_init ! advection (vector or flux form) 468 CALL dyn_vor_init ! vorticity term including Coriolis 469 CALL dyn_ldf_init ! lateral mixing 470 CALL dyn_hpg_init( Nnn ) ! horizontal gradient of Hydrostatic pressure 471 CALL dyn_spg_init ! surface pressure gradient 472 472 473 473 #if defined key_top
Note: See TracChangeset
for help on using the changeset viewer.