C **** C **** DIMENSIONS FOR COARSE AND FINE GRID C **** PARAMETER(INX=70,JNX=10,NNX=208,NJX= 28,NVR=575) C **** C **** BOUNDARY VALUES FROM COARSE GRID C **** COMMON/NESTGC/PHI1(INX,NVR,2), 1 PHI2(JNX,NVR,2), 2 PHI3(INX,NVR,2), 3 PHI4(JNX,NVR,2) C **** C **** BOUNDARY VALUES FROM FINE GRID C **** COMMON/NESTGF/FIN1(NNX,NVR,2), 1 FIN2(NJX,NVR,2), 2 FIN3(NNX,NVR,2), 3 FIN4(NJX,NVR,2)