Juan 9/04/2013: add temp var for PPM_MET

MNH/mode_mnh_zwork.f90

@@ -16,11 +16,18 @@ REAL, SAVE, ALLOCATABLE , DIMENSION(:,:,:) :: &
 & ZW3D1,ZW3D2,ZW3D3,ZW3D4,ZW3D5,ZW3D6,ZW3D7, &
 & ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15, &
 & ZW3D20,ZW3D21,ZW3D22,ZW3D23,ZW3D24,ZW3D25,ZW3D26,ZW3D27, &
-& ZPPM
+& ZPPM, &
+& ZRHOX1_PPM_MET,ZRHOX2_PPM_MET,ZRHOY1_PPM_MET, &
+& ZRHOY2_PPM_MET,ZRHOZ1_PPM_MET,ZRHOZ2_PPM_MET, &
+& ZSRC_PPM_MET  
 !$acc declare mirror(ZW3D1,ZW3D2,ZW3D3,ZW3D4,ZW3D5,ZW3D6,ZW3D7) &
 !$acc & mirror(ZW3D8,ZW3D9,ZW3D10,ZW3D11,ZW3D12,ZW3D13,ZW3D14,ZW3D15) &
 !$acc & mirror(ZW3D20,ZW3D21,ZW3D22,ZW3D23,ZW3D24,ZW3D25,ZW3D26,ZW3D27) &
-!$acc & mirror(ZPPM)
+!$acc & mirror(ZPPM) &
+!$acc & mirror(ZRHOX1_PPM_MET,ZRHOX2_PPM_MET,ZRHOY1_PPM_MET) &
+!$acc & mirror(ZRHOY2_PPM_MET,ZRHOZ1_PPM_MET,ZRHOZ2_PPM_MET) &
+!$acc & mirror(ZSRC_PPM_MET) 
+
  
 REAL, SAVE, ALLOCATABLE , DIMENSION(:,:)   :: ZPSRC_HALO2_WEST
 REAL, SAVE, ALLOCATABLE , DIMENSION(:,:)   :: ZPSRC_HALO2_SOUTH
@@ -89,6 +96,13 @@ SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
      ALLOCATE (ZW3D27(IIU,IJU,IKU))
 
      ALLOCATE (ZPPM(IIU,IJU,IKU))
+     ALLOCATE (ZRHOX1_PPM_MET(IIU,IJU,IKU))
+     ALLOCATE (ZRHOX2_PPM_MET(IIU,IJU,IKU))
+     ALLOCATE (ZRHOY1_PPM_MET(IIU,IJU,IKU))
+     ALLOCATE (ZRHOY2_PPM_MET(IIU,IJU,IKU))
+     ALLOCATE (ZRHOZ1_PPM_MET(IIU,IJU,IKU))
+     ALLOCATE (ZRHOZ2_PPM_MET(IIU,IJU,IKU)) 
+     ALLOCATE (ZSRC_PPM_MET(IIU,IJU,IKU)) 
 
      ALLOCATE (ZPSRC_HALO2_WEST(IJU,IKU)) 
      ALLOCATE (ZPSRC_HALO2_SOUTH(IIU,IKU)) 
@@ -127,6 +141,14 @@ SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
      ZPSRC_HALO2_SOUTH = XUNDEF
      
      ZUNIT3D = 1.0
+
+     ZRHOX1_PPM_MET = XUNDEF
+     ZRHOX2_PPM_MET = XUNDEF
+     ZRHOY1_PPM_MET = XUNDEF
+     ZRHOY2_PPM_MET = XUNDEF
+     ZRHOZ1_PPM_MET = XUNDEF
+     ZRHOZ2_PPM_MET = XUNDEF  
+     ZSRC_PPM_MET   = XUNDEF
      
 !$acc end kernels
 !$acc update host (ZW3D1,ZW3D2,ZW3D3,ZW3D4,ZW3D5,ZW3D6,ZW3D7)
@@ -134,7 +156,10 @@ SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
 !$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)  
+!$acc update host (ZRHOX1_PPM_MET,ZRHOX2_PPM_MET,ZRHOY1_PPM_MET)
+!$acc update host (ZRHOY2_PPM_MET,ZRHOZ1_PPM_MET,ZRHOZ2_PPM_MET) 
+!$acc update host (ZSRC_PPM_MET) 
     
 
   END IF