Changeset 7559

Timestamp:

2017-01-16T10:42:54+01:00 (7 years ago)

Author:

timgraham

Message:

Fix for #1824. Stop erroneous calls to trd_trc from tra_adv_tvd

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

@@ -100 +100 @@
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
          !
-         l_trd = .FALSE.
-         l_trans = .FALSE.
-         IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE.
-         IF( cdtype == 'TRA' .AND. (iom_use("uadv_heattr") .OR. iom_use("vadv_heattr") ) ) l_trans = .TRUE.
       ENDIF
+
+      l_trd = .FALSE.
+      l_trans = .FALSE.
+      IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE.
+      IF( cdtype == 'TRA' .AND. (iom_use("uadv_heattr") .OR. iom_use("vadv_heattr") ) ) l_trans = .TRUE.
       !
       IF( l_trd .OR. l_trans )  THEN