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 4499 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90 – NEMO

Ignore:
Timestamp:
2014-02-18T16:14:31+01:00 (10 years ago)
Author:
timgraham
Message:

Modified advection schemes as in #1243 to prevent trdtrc being called when key_trdtra is set but key_trdtrc is not set.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90

    r3787 r4499  
    103103         IF(lwp) WRITE(numout,*) 'tra_adv_ubs :  horizontal UBS advection scheme on ', cdtype 
    104104         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 
    105          ! 
    106          l_trd = .FALSE. 
    107          IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE. 
    108105      ENDIF 
     106      ! 
     107      l_trd = .FALSE. 
     108      IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE. 
    109109      ! 
    110110      !                                                          ! =========== 
Note: See TracChangeset for help on using the changeset viewer.