Changeset 5151

Timestamp:

2015-03-18T11:47:26+01:00 (9 years ago)

Author:

pabouttier

Message:

Fixing defects in traldf_tam routines; See Ticket #1482 an #1483

Location:

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA

Files:

• traldf_iso_tam.F90 (modified) (1 diff)
• traldf_tam.F90 (modified) (3 diffs)

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

@@ -536 +536 @@
                   ptb_ad(ji  ,jj+1,jk,jn) = ptb_ad(ji  ,jj+1,jk,jn) + zdjtad(ji,jj,jk)
                   ptb_ad(ji  ,jj  ,jk,jn) = ptb_ad(ji  ,jj  ,jk,jn) - zdjtad(ji,jj,jk)
-               END DO
-            END DO
-         END DO
+                  zditad(ji,jj,jk) = 0._wp
+                  zdjtad(ji,jj,jk) = 0._wp
+               END DO
+            END DO
+         END DO
+         zditad (1,:,:) = 0.e0     ;     zditad (jpi,:,:) = 0.e0
+         zdjtad (1,:,:) = 0.e0     ;     zdjtad (jpi,:,:) = 0.e0
       END DO
       !

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

@@ -62 +62 @@
       IF( nn_timing == 1 )  CALL timing_start('tra_ldf_tan')
       !
-
+      rldf = 1.0
       SELECT CASE ( nldf )                       ! compute lateral mixing trend and add it to the general trend
       CASE ( 0 )   ;   CALL tra_ldf_lap_tan   ( kt, nit000, 'TRA', gtsu_tl, gtsv_tl, tsb_tl, tsa_tl, jpts )      ! iso-level laplacian
@@ -84 +84 @@
       !!
       !
+      rldf = 1.0
       IF( nn_timing == 1 )  CALL timing_start('tra_ldf_adj')
       !
@@ -123 +124 @@
          & kumadt             ! Output unit
 
+      rldf = 1.0
       SELECT CASE ( nldf )                       ! compute lateral mixing trend and add it to the general trend
        CASE ( 0 )   ;   CALL tra_ldf_lap_adj_tst( kumadt )