Changeset 4479 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/par_oce.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/par_oce.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

@@ -177 +177 @@
    INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension
    INTEGER, PUBLIC  ::   jpk   ! = jpkdta                                             !: third dimension
-   INTEGER, PUBLIC  ::   jpkf  ! <= jpk                                             !: Max wet level of MPP subdomain
-   INTEGER, PUBLIC  ::   jpkorig ! = jpk before it is reset to jpkf
+   INTEGER, PUBLIC  ::   jpkorig ! = jpk before it is reduced to a sub-domain-local value
    INTEGER, PUBLIC  ::   jpim1 ! = jpi-1                                            !: inner domain indices
    INTEGER, PUBLIC  ::   jpjm1 ! = jpj-1                                            !:   -     -      -
    INTEGER, PUBLIC  ::   jpkm1 ! = jpk-1                                            !:   -     -      -
-   INTEGER, PUBLIC  ::   jpkfm1 ! = jpkf-1                                          !:   -     -      -
    INTEGER, PUBLIC  ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj