Juan 10/03/2022:ZSOLVER/ini_modeln.f90, for GPu -> acc enter data(XPABST)

src/ZSOLVER/ini_modeln.f90

@@ -931,6 +931,7 @@ END IF
 !
 ALLOCATE(XPABSM(IIU,IJU,IKU)) ; XPABSM = 0.0
 ALLOCATE(XPABST(IIU,IJU,IKU)) ; XPABST = 0.0
+!$acc enter data copyin(XPABST)
 !
 ALLOCATE(XRT(IIU,IJU,IKU,NRR)) ;     XRT = 0.0
 ALLOCATE(XRRS(IIU,IJU,IKU,NRR)) ;    XRRS = 0.0