Changeset 4250 for branches/2013
- Timestamp:
- 2013-11-19T15:14:38+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r4246 r4250 34 34 USE iom 35 35 USE sbcrnf, ONLY: h_rnf, nk_rnf, sbc_rnf_div ! River runoff 36 USE dynspg_ts, ONLY: un_b, vn_b, un_adv, vn_adv 36 USE dynspg_ts, ONLY: un_b, vn_b, un_adv, vn_adv, ln_bt_fw 37 37 USE dynspg_oce, ONLY: lk_dynspg_ts 38 38 #if defined key_agrif … … 279 279 ENDIF 280 280 281 IF( neuler == 0 .AND. kt == nit000 ) THEN !** Euler time-stepping at first time-step : no filter 282 sshn(:,:) = ssha(:,:) ! now <-- after (before already = now) 281 IF( ( neuler == 0 .AND. kt == nit000 ) .OR. ln_bt_fw ) THEN !** Euler time-stepping at first time-step : no filter 282 sshb(:,:) = sshn(:,:) ! before <-- now 283 sshn(:,:) = ssha(:,:) ! now <-- after (before already = now) 283 284 ELSE !** Leap-Frog time-stepping: Asselin filter + swap 284 285 sshb(:,:) = sshn(:,:) + atfp * ( sshb(:,:) - 2 * sshn(:,:) + ssha(:,:) ) ! before <-- now filtered
Note: See TracChangeset
for help on using the changeset viewer.