& , xx_apressurestartdate
integer xx_apressurestartdate(4)
I xx_apressurestartdate,
& xx_apressurestartdate2, xx_apressurestartdate , mythid )
call CAL_TIMEPASSED( xx_apressurestartdate, modelstartdate,
& xx_apressure_file, xx_apressurestartdate,