& apressurefile, apressurestartdate, apressureperiod,
_RL apressurestartdate
& apressureperiod, apressurestartdate,
apressurestartdate = 0.
call CAL_TOSECONDS ( difftime, apressurestartdate ,mythid )
apressurestartdate = modelstart + apressurestartdate
& apressurestartdate