Changeset 4479 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.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/LBC/exchmod.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90

@@ -300 +300 @@
     USE par_oce, ONLY: wp, jpreci, jprecj, jpim1
     USE dom_oce, ONLY: nlci, nlcj, nldi, nlei, nldj, nlej, &
-                       nperio, nbondi, npolj, narea, jpkf
+                       nperio, nbondi, npolj, narea
     USE mapcomm_mod, ONLY: Iminus, Iplus, NONE, ilbext, iubext, cyclic_bc
     USE mapcomm_mod, ONLY: trimmed, eidx, widx
@@ -359 +359 @@
        ! we can limit the length of our z loops to the
        ! no. of levels above the ocean floor.
-       IF(kdim1 == jpkorig)kdim1 = jpkf
+       IF(kdim1 == jpkorig)kdim1 = jpk
     ELSEIF ( PRESENT(ib3) ) THEN
 #if defined key_z_first
@@ -369 +369 @@
        ! we can limit the length of our z loops to the
        ! no. of levels above the ocean floor.
-       IF(kdim1 == jpk)kdim1 = jpkf
+       IF(kdim1 == jpk)kdim1 = jpk
     ELSEIF ( PRESENT(b2) ) THEN
        kdim1 = SIZE(b2,dim=2)