55 if (numreceptor.ge.1)
then
60 if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5))
then
61 open(unitoutrecept,file=path(2)(1:length(2))//
'receptor_conc', &
62 form=
'unformatted',err=997)
63 write(unitoutrecept) (receptorname(j),j=1,numreceptor)
64 write(unitoutrecept) (xreceptor(j)*dx+xlon0, &
65 yreceptor(j)*dy+ylat0,j=1,numreceptor)
71 if ((iout.eq.2).or.(iout.eq.3))
then
72 open(unitoutreceptppt,file=path(2)(1:length(2))//
'receptor_pptv', &
73 form=
'unformatted',err=998)
74 write(unitoutreceptppt) (receptorname(j),j=1,numreceptor)
75 write(unitoutreceptppt) (xreceptor(j)*dx+xlon0, &
76 yreceptor(j)*dy+ylat0,j=1,numreceptor)
83 997
write(*,*)
' #### FLEXPART MODEL ERROR! THE FILE #### '
84 write(*,*)
' #### receptor_conc #### '
85 write(*,*)
' #### CANNOT BE OPENED. #### '
88 998
write(*,*)
' #### FLEXPART MODEL ERROR! THE FILE #### '
89 write(*,*)
' #### receptor_pptv #### '
90 write(*,*)
' #### CANNOT BE OPENED. #### '