Changeset 3692 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
- Timestamp:
- 2012-11-28T08:54:04+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r3562 r3692 156 156 # if defined key_obc 157 157 ! !* OBC open boundaries 158 CALL obc_dyn( kt )158 IF( lk_obc ) CALL obc_dyn( kt ) 159 159 ! 160 160 IF( .NOT. lk_dynspg_flt ) THEN … … 163 163 ! sshn_b (= after ssha_b) for time-splitting case (lk_dynspg_ts=T) 164 164 ! - Correct the barotropic velocities 165 CALL obc_dyn_bt( kt )165 IF( lk_obc ) CALL obc_dyn_bt( kt ) 166 166 ! 167 167 !!gm ERROR - potential BUG: sshn should not be modified at this stage !! ssh_nxt not alrady called 168 168 CALL lbc_lnk( sshn, 'T', 1. ) ! Boundary conditions on sshn 169 169 ! 170 IF( l n_vol_cst ) CALL obc_vol( kt )170 IF( lk_obc .AND. ln_vol_cst ) CALL obc_vol( kt ) 171 171 ! 172 172 IF(ln_ctl) CALL prt_ctl( tab2d_1=sshn, clinfo1=' ssh : ', mask1=tmask ) … … 175 175 # elif defined key_bdy 176 176 ! !* BDY open boundaries 177 IF( lk_ dynspg_exp ) CALL bdy_dyn( kt )178 IF( lk_ dynspg_ts )CALL bdy_dyn( kt, dyn3d_only=.true. )177 IF( lk_bdy .AND. lk_dynspg_exp ) CALL bdy_dyn( kt ) 178 IF( lk_bdy .AND. lk_dynspg_ts ) CALL bdy_dyn( kt, dyn3d_only=.true. ) 179 179 180 180 !!$ Do we need a call to bdy_vol here??
Note: See TracChangeset
for help on using the changeset viewer.