& xx_apressure_remo_slope, xx_apressureperiod,
& , xx_apressureperiod
_RL xx_apressureperiod
fldperiod = xx_apressureperiod
if ( xx_apressureperiod .EQ. 0 ) then
& xx_apressureperiod) + 1
& xx_apressureperiod) + 2
xx_apressureperiod = 0. _d 0
& xx_apressure_file, xx_apressure_dummy, xx_apressureperiod,
& xx_apressureperiod,