Juan 01/02/2023:ZSOLVER/p_abs.f90, OpenACC OPT, remove update host(...) , use SUM_DD_R2_ll_DEVICE

src/ZSOLVER/p_abs.f90

@@ -347,7 +347,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
   END IF
 !
   !
-  !$acc update host(ZMASSGUESS_2D,ZMASS_O_PI_2D,ZWATERMASST_2D)
+  ! acc update host(ZMASSGUESS_2D,ZMASS_O_PI_2D,ZWATERMASST_2D)
   ZMASSGUESS  = SUM_DD_R2_ll_DEVICE(ZMASSGUESS_2D)
   ZMASS_O_PI  = SUM_DD_R2_ll_DEVICE(ZMASS_O_PI_2D)
   ZWATERMASST = SUM_DD_R2_ll_DEVICE(ZWATERMASST_2D)
@@ -409,7 +409,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
     END DO
   END IF
 !
-  !$acc update host(ZMASSGUESS_2D)
+  ! acc update host(ZMASSGUESS_2D)
   ZMASSGUESS  = SUM_DD_R2_ll_DEVICE(ZMASSGUESS_2D)
   !
   ZPI0 = (PDRYMASST + ZWATERMASST - ZP00_O_RD*ZMASSGUESS ) / ZMASS_O_PI