_RL transpbar(maxNumDays,nsx,nsy)
_RL transpobs(maxNumDays)
_RL wtransp(maxNumDays)
IF ( ndaysrec .GT. maxNumDays ) THEN
& ndaysrec, maxNumDays
_RL tpTimeMask(maxNumDays)
_RL ersTimeMask(maxNumDays)
_RL gfoTimeMask(maxNumDays)
INTEGER maxNumDays
PARAMETER ( maxNumDays = 8050 )