C **** C **** DIMENSIONS FOR COARSE AND FINE GRID C **** PARAMETER(INX=34,JNX=13,NNX=100,NJX= 37,NVR=697) C **** C **** BOUNDARY VALUES FROM COARSE GRID C **** COMMON/NESTGC1/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/NESTGF1/FIN1(NNX,NVR,2), 1 FIN2(NJX,NVR,2), 2 FIN3(NNX,NVR,2), 3 FIN4(NJX,NVR,2)