New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4250 for branches/2013 – NEMO

Changeset 4250 for branches/2013


Ignore:
Timestamp:
2013-11-19T15:14:38+01:00 (10 years ago)
Author:
acc
Message:

Branch 2013/dev_r3858_NOC_ZTC, #863. Correction to update step in ln_bt_fw=.true. case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r4246 r4250  
    3434   USE iom 
    3535   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 
    3737   USE dynspg_oce, ONLY: lk_dynspg_ts 
    3838#if defined key_agrif 
     
    279279      ENDIF 
    280280 
    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) 
    283284      ELSE                                         !** Leap-Frog time-stepping: Asselin filter + swap 
    284285         sshb(:,:) = sshn(:,:) + atfp * ( sshb(:,:) - 2 * sshn(:,:) + ssha(:,:) )     ! before <-- now filtered 
Note: See TracChangeset for help on using the changeset viewer.