Changeset 4424 for branches/2011/DEV_r2739_STFC_dCSE

Timestamp:

2014-02-04T13:13:43+01:00 (10 years ago)

Author:

trackstand2

Message:

Bug fixes - use jpkorig in allocates instead of jpk

Location:

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC

Files:

• DYN/dynvor.F90 (modified) (1 diff)
• ZDF/zdfddm.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -603 +603 @@
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
          IF( .NOT.lk_vvl ) THEN
-            ALLOCATE( ze3f(jpi,jpj,jpk) , STAT=ierr )
+            ALLOCATE( ze3f(jpi,jpj,jpkorig) , STAT=ierr )
             IF( lk_mpp    )   CALL mpp_sum ( ierr )
             IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'dyn:vor_een : unable to allocate arrays' )

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

@@ -58 +58 @@
       !!                ***  ROUTINE zdf_ddm_alloc  ***
       !!----------------------------------------------------------------------
-      ALLOCATE( avs(jpi,jpj,jpk), rrau(jpi,jpj,jpk), STAT= zdf_ddm_alloc )
+      ALLOCATE( avs(jpi,jpj,jpkorig), rrau(jpi,jpj,jpkorig),  &
+                STAT= zdf_ddm_alloc )
       !
       IF( lk_mpp             )   CALL mpp_sum ( zdf_ddm_alloc )