Changeset 4482 for branches

Timestamp:

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

Author:

trackstand2

Message:

Bug fix to use jpkorig in dom_vvl_alloc called by dom_vvl

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -54 +54 @@
       !!----------------------------------------------------------------------
       !
-      ALLOCATE( mut (jpi,jpj,jpk) , muu (jpi,jpj,jpk) , muv (jpi,jpj,jpk) , muf (jpi,jpj,jpk) ,     &
+      ALLOCATE( mut (jpi,jpj,jpkorig), muu (jpi,jpj,jpkorig), muv(jpi,jpj,jpkorig) , muf (jpi,jpj,jpkorig) ,     &
          &      ee_t(jpi,jpj)     , ee_u(jpi,jpj)     , ee_v(jpi,jpj)     , ee_f(jpi,jpj)     ,     &
-         &      r2dt        (jpk)                                                             , STAT=dom_vvl_alloc )
+         &      r2dt        (jpkorig)                                                             , STAT=dom_vvl_alloc )
          !
       IF( lk_mpp             )   CALL mpp_sum ( dom_vvl_alloc )