COMMON /SURF_CORREC/ TsurfCor, SsurfCor
_RL SsurfCor
SsurfCor = wS_Mean / globalArea
SsurfCor= 0.
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
SsurfCor = 0. _d 0
SsurfCor=0. _d 0