Ignore:
Timestamp:
2016-11-02T15:24:08+01:00 (4 years ago)
Author:
jcastill
Message:

First trial to changes needed for wave coupling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r5936_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/step.F90

    r7167 r7168  
    231231                         CALL dyn_adv       ( kstp )  ! advection (vector or flux form) 
    232232                         CALL dyn_vor       ( kstp )  ! vorticity term including Coriolis 
     233      IF( ln_stcor    )  CALL dyn_stcor     ( kstp )  ! Stokes-Coriolis forcing 
    233234                         CALL dyn_ldf       ( kstp )  ! lateral mixing 
    234       IF( ln_stcor    )  CALL dyn_stcor     ( kstp )  ! Stokes-Coriolis forcing 
    235235                         CALL dyn_hpg       ( kstp )  ! horizontal gradient of Hydrostatic pressure 
    236236                         CALL dyn_spg       ( kstp )  ! surface pressure gradient 
Note: See TracChangeset for help on using the changeset viewer.