Changeset 4595 for branches/2012

Timestamp:

2014-03-26T11:50:35+01:00 (10 years ago)

Author:

pabouttier

Message:

Change the timing condition to print control message in tra_adv_adj

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traadv_tam.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/traadv_tam.F90

@@ -102 +102 @@
       zwntl(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       !
-      IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM'
-      nadv = 1 ! force tra_adv_cen2 for tangent
+      IF ( kt == nit000 ) THEN
+         IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM'
+         nadv = 1 ! force tra_adv_cen2 for tangent
+      END IF 
 
       SELECT CASE ( nadv )                           ! compute advection trend and add it to general trend
@@ -155 +157 @@
       zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       !
-      IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM'
-      nadv = 1 ! force tra_adv_cen2 for adjoint
+      IF ( kt == nitend ) THEN
+         IF(lwp) WRITE(numout,*) ' tra_adv_tam: 2nd order scheme is forced in TAM'
+         nadv = 1 ! force tra_adv_cen2 for adjoint
+      END IF
       !
       SELECT CASE ( nadv )                           ! compute advection trend and add it to general trend