Changeset 4387
- Timestamp:
- 2014-01-31T14:48:39+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90
r4369 r4387 162 162 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 163 163 CALL ssh_nxt ( kstp ) ! after ssh (includes call to div_cur) 164 165 IF( lk_dynspg_ts ) THEN166 IF( lk_vvl ) CALL dom_vvl_sf_nxt( kstp ) ! after vertical scale factors 167 CALL wzv ( kstp ) ! now cross-level velocity164 IF( lk_vvl ) CALL dom_vvl_sf_nxt( kstp ) ! after vertical scale factors 165 CALL wzv ( kstp ) ! now cross-level velocity 166 167 IF( lk_dynspg_ts ) THEN 168 168 ! In case the time splitting case, update almost all momentum trends here: 169 169 ! Note that the computation of vertical velocity above, hence "after" sea level … … 193 193 194 194 CALL div_cur( kstp ) ! Horizontal divergence & Relative vorticity (2nd call in time-split case) 195 ENDIF196 IF( lk_vvl ) CALL dom_vvl_sf_nxt( kstp, kcall=2 ) ! after vertical scale factors197 CALL wzv ( kstp ) ! now cross-level velocity195 IF( lk_vvl ) CALL dom_vvl_sf_nxt( kstp, kcall=2 ) ! after vertical scale factors (update depth average component) 196 CALL wzv ( kstp ) ! now cross-level velocity 197 ENDIF 198 198 199 199 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.