Changeset 4479 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

Timestamp:

2014-02-04T13:19:11+01:00 (10 years ago)

Author:

trackstand2

Message:

Remove jpkf as un-needed now we just reset jpk instead

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90 (modified) (7 diffs)

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

@@ -189 +189 @@
 #else
          !!bug ajout.... why?   ( 1,jpj,:) and (jpi,1,:) should be sufficient....
-         zdit (1,:,1:jpkf) = 0.e0     ;     zdit (jpi,:,1:jpkf) = 0.e0
-         zdjt (1,:,1:jpkf) = 0.e0     ;     zdjt (jpi,:,1:jpkf) = 0.e0
+         zdit (1,:,1:jpk) = 0.e0     ;     zdit (jpi,:,1:jpk) = 0.e0
+         zdjt (1,:,1:jpk) = 0.e0     ;     zdjt (jpi,:,1:jpk) = 0.e0
          !!end
-         DO jk = 1, jpkfm1 ! jpkm1
+         DO jk = 1, jpkm1 ! jpkm1
             DO jj = 1, jpjm1
                DO ji = 1, fs_jpim1   ! vector opt.
@@ -326 +326 @@
 !CDIR PARALLEL DO PRIVATE( zdk1t ) 
          !                                                ! ===============
-         DO jk = 1, jpkfm1 ! jpkm1                        ! Horizontal slab
+         DO jk = 1, jpkm1 ! jpkm1                        ! Horizontal slab
             !                                             ! ===============
             ! 1. Vertical tracer gradient at level jk and jk+1
@@ -395 +395 @@
                   DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1
 #else
-            DO jk = 1, jpkfm1 ! jpkm1
+            DO jk = 1, jpkm1 ! jpkm1
                DO jj = 2, jpjm1
                   DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -412 +412 @@
                   DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1
 #else
-            DO jk = 1, jpkfm1 ! jpkm1
+            DO jk = 1, jpkm1 ! jpkm1
                DO jj = 2, jpjm1
                   DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -441 +441 @@
          ztfw(:,:,:) = 0.0_wp
 #else
-         ztfw(1,:,1:jpkf) = 0.e0     ;     ztfw(jpi,:,1:jpkf) = 0.e0
-         ztfw(:,:, 1 ) = 0.e0      ;      ztfw(:,:,jpkf) = 0.e0
+         ztfw(1,:,1:jpk) = 0.e0     ;     ztfw(jpi,:,1:jpk) = 0.e0
+         ztfw(:,:, 1 ) = 0.e0      ;      ztfw(:,:,jpk) = 0.e0
 #endif
 
@@ -451 +451 @@
                DO jk = 2, mbkmax(ji,jj)-1
 #else
-         DO jk = 2, jpkfm1
+         DO jk = 2, jpkm1
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -481 +481 @@
                DO jk = 1, mbkmax(ji,jj)-1
 #else
-         DO jk = 1, jpkfm1
+         DO jk = 1, jpkm1
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1   ! vector opt.