Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traadv_tam.F90

Timestamp:

2011-02-15T12:58:59+01:00 (13 years ago)

Author:

vidard

Message:

refer to ticket #798

File:

• branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traadv_tam.F90 (modified) (4 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traadv_tam.F90

@@ -43 +43 @@
       & tra_adv_cen2_tan,     &
       & tra_adv_cen2_adj,     &
-      & tra_adv_cen2_adj_tst, &
-      & tra_adv_cen2_tlm_tst
+#if defined key_tst_tlm
+      & tra_adv_cen2_tlm_tst, &
+#endif
+      & tra_adv_cen2_adj_tst
    USE traadv_eiv_tam, ONLY: & ! advection trend - eddy induced velocity (tra_adv_eiv   routine)
       & tra_adv_eiv_tan,     &
       & tra_adv_eiv_adj
-!   USE in_out_manager, ONLY : & ! I/O manager 
-!      & lwp,                  &
-!      & numout,               &
-!      & nit000
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
@@ -62 +60 @@
    PUBLIC   tra_adv_ctl_tam ! routine called by stepadj module
    PUBLIC   tra_adv_adj_tst ! routine called by tst module
+#if defined key_tst_tlm
    PUBLIC   tra_adv_tlm_tst ! routine called by tst module
+#endif
    !!* Namelist nam_traadv
    LOGICAL, PUBLIC ::   ln_traadv_cen2   = .TRUE.       ! 2nd order centered scheme flag
@@ -305 +305 @@
       !
    END SUBROUTINE tra_adv_ctl_tam
-
+#if defined key_tst_tlm
 SUBROUTINE tra_adv_tlm_tst( kumadt )
       !!-----------------------------------------------------------------------
@@ -335 +335 @@
    END SUBROUTINE tra_adv_tlm_tst
 #endif
+#endif