C COMMON /ACMSFC/ & TSRFC,NSRFC,ASRFC &,SFCSHX(IDIM1:IDIM2,JDIM1:JDIM2),SFCLHX(IDIM1:IDIM2,JDIM1:JDIM2) &,SUBSHX(IDIM1:IDIM2,JDIM1:JDIM2),SNOPCX(IDIM1:IDIM2,JDIM1:JDIM2) &,SFCUVX(IDIM1:IDIM2,JDIM1:JDIM2),SFCEVP(IDIM1:IDIM2,JDIM1:JDIM2) &,POTEVP(IDIM1:IDIM2,JDIM1:JDIM2),POTFLX(IDIM1:IDIM2,JDIM1:JDIM2) &,APHTIM save /ACMSFC/