Juan 9/04/2013: add more temp variable

MNH/mode_mnh_zwork.f90

@@ -14,10 +14,14 @@ LOGICAL, SAVE                   :: GFIRST_CALL_MNH_ALLOC_ZWORK = .TRUE.
 !
 REAL, SAVE, ALLOCATABLE , DIMENSION(:,:,:) :: & 
 & ZW3D1,ZW3D2,ZW3D3,ZW3D4,ZW3D5,ZW3D6,ZW3D7, &
-& ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15
+& ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15, &
+& ZW3D20,ZW3D21,ZW3D22,ZW3D23,ZW3D24,ZW3D25,ZW3D26,ZW3D27, &
+& ZPPM
 !$acc declare mirror(ZW3D1,ZW3D2,ZW3D3,ZW3D4,ZW3D5,ZW3D6,ZW3D7) &
-!$acc & mirror(ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15)
-
+!$acc & mirror(ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15) &
+!$acc & mirror(ZW3D20,ZW3D21,ZW3D22,ZW3D23,ZW3D24,ZW3D25,ZW3D26,ZW3D27) &
+!$acc & mirror(ZPPM)
+ 
 REAL, SAVE, ALLOCATABLE , DIMENSION(:,:)   :: ZPSRC_HALO2_WEST
 REAL, SAVE, ALLOCATABLE , DIMENSION(:,:)   :: ZPSRC_HALO2_SOUTH
 !$acc declare mirror(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH)
@@ -75,6 +79,17 @@ SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
      ALLOCATE (ZW3D14(IIU,IJU,IKU)) 
      ALLOCATE (ZW3D15(IIU,IJU,IKU)) 
 
+     ALLOCATE (ZW3D20(IIU,IJU,IKU)) 
+     ALLOCATE (ZW3D21(IIU,IJU,IKU))
+     ALLOCATE (ZW3D22(IIU,IJU,IKU))
+     ALLOCATE (ZW3D23(IIU,IJU,IKU))
+     ALLOCATE (ZW3D24(IIU,IJU,IKU))
+     ALLOCATE (ZW3D25(IIU,IJU,IKU))
+     ALLOCATE (ZW3D26(IIU,IJU,IKU))
+     ALLOCATE (ZW3D27(IIU,IJU,IKU))
+
+     ALLOCATE (ZPPM(IIU,IJU,IKU))
+
      ALLOCATE (ZPSRC_HALO2_WEST(IJU,IKU)) 
      ALLOCATE (ZPSRC_HALO2_SOUTH(IIU,IKU)) 
 
@@ -97,6 +112,17 @@ SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
      ZW3D14 = XUNDEF
      ZW3D15 = XUNDEF
 
+     ZW3D20 = XUNDEF
+     ZW3D21 = XUNDEF
+     ZW3D22 = XUNDEF
+     ZW3D23 = XUNDEF
+     ZW3D24 = XUNDEF
+     ZW3D25 = XUNDEF
+     ZW3D26 = XUNDEF
+     ZW3D27 = XUNDEF
+
+     ZPPM   = XUNDEF
+
      ZPSRC_HALO2_WEST = XUNDEF
      ZPSRC_HALO2_SOUTH = XUNDEF
      
@@ -105,8 +131,11 @@ SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
 !$acc end kernels
 !$acc update host (ZW3D1,ZW3D2,ZW3D3,ZW3D4,ZW3D5,ZW3D6,ZW3D7)
 !$acc update host (ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15)
+!$acc update host (ZW3D20,ZW3D21,ZW3D22,ZW3D23,ZW3D24,ZW3D25,ZW3D26,ZW3D27)
+!$acc update host (ZPPM)
 !$acc update host (ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH)
-!$acc update host( ZUNIT3D)      
+!$acc update host( ZUNIT3D)  
+    
 
   END IF