- Timestamp:
- 2011-07-07T15:21:12+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_NOCS_NEPTUNE/NEMOGCM/NEMO/OPA_SRC/step.F90
r2715 r2795 36 36 #endif 37 37 USE asminc ! assimilation increments (tra_asm_inc, dyn_asm_inc routines) 38 USE dynnept ! simplified form of Neptune effect 38 39 39 40 IMPLICIT NONE … … 220 221 IF( ln_asmiau .AND. & 221 222 & ln_dyninc ) CALL dyn_asm_inc( kstp ) ! apply dynamics assimilation increment 223 IF( ln_neptsimp ) CALL dyn_cor_topo( kstp ) ! subtract Neptune velocities (simplified) 222 224 CALL dyn_adv( kstp ) ! advection (vector or flux form) 223 225 CALL dyn_vor( kstp ) ! vorticity term including Coriolis 224 226 CALL dyn_ldf( kstp ) ! lateral mixing 227 IF( ln_neptsimp ) CALL dyn_cor_topo( kstp ) ! add Neptune velocities (simplified) 225 228 #if defined key_agrif 226 229 IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_dyn ! momemtum sponge
Note: See TracChangeset
for help on using the changeset viewer.