_RL apressurestartdate
& apressureperiod, apressurestartdate,
& apressurefile, apressurestartdate, apressureperiod,
CALL CAL_TOSECONDS ( difftime, apressurestartdate ,myThid)
apressurestartdate= modelstart + apressurestartdate
apressurestartdate = 0.
& apressurestartdate