IF (vg4Max.GT.0.) THEN
AlinMax=vg4Max*L4
_RL vg2,vg2Min,vg2Max,vg4,vg4Min,vg4Max
vg4Max=viscA4GridMax*recip_dt