Ignore:
Timestamp:
2013-11-20T16:02:06+01:00 (7 years ago)
Author:
cbricaud
Message:

correction for timesplitting

File:
1 edited

Legend:

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

    r4263 r4288  
    3636   USE iom 
    3737   USE sbcrnf, ONLY: h_rnf, nk_rnf, sbc_rnf_div   ! River runoff  
    38    USE dynspg_oce,  ONLY: un_b, vn_b, un_adv, vn_adv 
    3938   USE dynspg_ts,   ONLY: ln_bt_fw 
    4039   USE dynspg_oce, ONLY: lk_dynspg_ts 
     
    288287      ENDIF 
    289288 
    290       IF( ( neuler == 0 .AND. kt == nit000 ) .OR. ln_bt_fw ) THEN    !** Euler time-stepping at first time-step : no filter 
     289# if defined key_dynspg_ts 
     290      IF( ( neuler == 0 .AND. kt == nit000 ) .OR. ln_bt_fw ) THEN    !** Euler time-stepping: no filter 
     291# else 
     292      IF ( neuler == 0 .AND. kt == nit000 ) THEN   !** Euler time-stepping at first time-step : no filter 
     293#endif 
    291294         sshb(:,:) = sshn(:,:)                           ! before <-- now 
    292295         sshn(:,:) = ssha(:,:)                           ! now    <-- after  (before already = now) 
Note: See TracChangeset for help on using the changeset viewer.