Changeset 4451

Timestamp:

2014-02-04T13:16:21+01:00 (10 years ago)

Author:

trackstand2

Message:

Add use of mbkmax to tra_nxt and traswp

Location:

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA

Files:

• tranxt.F90 (modified) (6 diffs)
• traswp.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -48 +48 @@
    USE agrif_opa_interp
 #endif
+   USE timing
 
    IMPLICIT NONE
@@ -108 +109 @@
       !!----------------------------------------------------------------------
 
+      CALL timing_start('tra_nxt')
+
       IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*)
@@ -155 +158 @@
             DO jj = 1, jpj
                DO ji = 1, jpi
-                  DO jk = 1, jpkm1
+                  DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1
                      tsn(ji,jj,jk,jn) = tsa(ji,jj,jk,jn)    
                   END DO
@@ -185 +188 @@
          DO jj = 1, jpj
             DO ji = 1, jpi
-               DO jk = 1, jpkm1
+               DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1
                   zfact = 1.e0 / r2dtra(jk)             
                   ztrdt(ji,jj,jk) = ( tsb(ji,jj,jk,jp_tem) - ztrdt(ji,jj,jk) ) * zfact
@@ -207 +210 @@
       IF(ln_ctl)   CALL prt_ctl( tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' nxt  - Tn: ', mask1=tmask,   &
          &                       tab3d_2=tsn(:,:,:,jp_sal), clinfo2=       ' Sn: ', mask2=tmask )
+      !
+      CALL timing_stop('tra_nxt','section')
       !
    END SUBROUTINE tra_nxt
@@ -371 +376 @@
          DO jj = 1, jpj
             DO ji = 1, jpi
-               DO jk = 1, jpkm1
+               DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1
                   !! DCSE_NEMO: could try promoting these scalars to vectors
                   zfact1 = atfp * rdttra(jk)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/traswp.F90

@@ -6 +6 @@
    USE par_oce         ! ocean parameters
    USE oce             ! ocean dynamics and active tracers
+   USE dom_oce, ONLY: mbkmax
 
    IMPLICIT NONE
@@ -31 +32 @@
       !!----------------------------------------------------------------------
       !
+#if defined key_z_first
+      INTEGER :: ji,jj,jk
+
+      DO jj = 1, jpj, 1
+         DO ji = 1, jpi, 1
+            DO jk = 1, mbkmax(ji,jj), 1
+               tsn(ji,jj,jk,jp_tem) = tn(ji,jj,jk)      ;      tsn(ji,jj,jk,jp_sal) = sn(ji,jj,jk)
+               tsb(ji,jj,jk,jp_tem) = tb(ji,jj,jk)      ;      tsb(ji,jj,jk,jp_sal) = sb(ji,jj,jk)
+               tsa(ji,jj,jk,jp_tem) = ta(ji,jj,jk)      ;      tsa(ji,jj,jk,jp_sal) = sa(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+#else
       tsn(:,:,:,jp_tem) = tn(:,:,:)      ;      tsn(:,:,:,jp_sal) = sn(:,:,:)
       tsb(:,:,:,jp_tem) = tb(:,:,:)      ;      tsb(:,:,:,jp_sal) = sb(:,:,:)
       tsa(:,:,:,jp_tem) = ta(:,:,:)      ;      tsa(:,:,:,jp_sal) = sa(:,:,:)
+#endif
       !
    END SUBROUTINE tra_swap
@@ -45 +60 @@
       !!----------------------------------------------------------------------
       !
+#if defined key_z_first
+      INTEGER :: ji,jj,jk
+
+      DO jj = 1, jpj, 1
+         DO ji = 1, jpi, 1
+            DO jk = 1, mbkmax(ji,jj), 1
+               tn(ji,jj,jk) = tsn(ji,jj,jk,jp_tem)      ;      sn(ji,jj,jk) = tsn(ji,jj,jk,jp_sal)
+               tb(ji,jj,jk) = tsb(ji,jj,jk,jp_tem)      ;      sb(ji,jj,jk) = tsb(ji,jj,jk,jp_sal)
+               ta(ji,jj,jk) = tsa(ji,jj,jk,jp_tem)      ;      sa(ji,jj,jk) = tsa(ji,jj,jk,jp_sal)
+            END DO
+         END DO
+      END DO
+#else
       tn(:,:,:) = tsn(:,:,:,jp_tem)      ;      sn(:,:,:) = tsn(:,:,:,jp_sal)
       tb(:,:,:) = tsb(:,:,:,jp_tem)      ;      sb(:,:,:) = tsb(:,:,:,jp_sal)
       ta(:,:,:) = tsa(:,:,:,jp_tem)      ;      sa(:,:,:) = tsa(:,:,:,jp_sal)
+#endif
       !
    END SUBROUTINE tra_unswap