Changeset 4470 for branches

Timestamp:

2014-02-04T13:18:24+01:00 (10 years ago)

Author:

trackstand2

Message:

Replace jpk with jpkorig in zdf_gls_alloc()

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

@@ -142 +142 @@
       !!                ***  FUNCTION zdf_gls_alloc  ***
       !!----------------------------------------------------------------------
-      ALLOCATE( en(jpi,jpj,jpk),  mxln(jpi,jpj,jpk), zwall(jpi,jpj,jpk) ,     &
-         &      ustars2(jpi,jpj), ustarb2(jpi,jpj)                      , STAT= zdf_gls_alloc )
+      ALLOCATE( en(jpi,jpj,jpkorig),  mxln(jpi,jpj,jpkorig), &
+         &      zwall(jpi,jpj,jpkorig)                     , &
+         &      ustars2(jpi,jpj), ustarb2(jpi,jpj)         , STAT= zdf_gls_alloc )
          !
       IF( lk_mpp             )   CALL mpp_sum ( zdf_gls_alloc )