diff --git a/src/ZSOLVER/p_abs.f90 b/src/ZSOLVER/p_abs.f90 index 3b41b15e68fb88d7c47a282f49c6b36a9a1cdb7f..962230cdef3cb516e4c15f18983d6bf2784f7939 100644 --- a/src/ZSOLVER/p_abs.f90 +++ b/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