53 if (lagespectra.ne.1)
then
55 lage(nageclass)=999999999
64 open(unitageclasses,file=path(1)(1:length(1))//
'AGECLASSES', &
68 read(unitageclasses,*)
70 read(unitageclasses,*) nageclass
73 if (nageclass.gt.maxageclass)
then
74 write(*,*)
' #### FLEXPART MODEL ERROR! NUMBER OF AGE #### '
75 write(*,*)
' #### CLASSES GREATER THAN MAXIMUM ALLOWED. #### '
76 write(*,*)
' #### CHANGE SETTINGS IN FILE AGECLASSES OR #### '
77 write(*,*)
' #### RECOMPILE WITH LARGER MAXAGECLASS IN #### '
78 write(*,*)
' #### FILE PAR_MOD. #### '
82 read(unitageclasses,*) lage(1)
83 if (lage(1).le.0)
then
84 write(*,*)
' #### FLEXPART MODEL ERROR! AGE OF FIRST #### '
85 write(*,*)
' #### CLASS MUST BE GREATER THAN ZERO. CHANGE #### '
86 write(*,*)
' #### SETTINGS IN FILE AGECLASSES. #### '
91 read(unitageclasses,*) lage(i)
92 if (lage(i).le.lage(i-1))
then
93 write(*,*)
' #### FLEXPART MODEL ERROR! AGE CLASSES #### '
94 write(*,*)
' #### MUST BE GIVEN IN TEMPORAL ORDER. #### '
95 write(*,*)
' #### CHANGE SETTINGS IN FILE AGECLASSES. #### '
102 999
write(*,*)
' #### FLEXPART MODEL ERROR! FILE "AGECLASSES" #### '
103 write(*,*)
' #### CANNOT BE OPENED IN THE DIRECTORY #### '
104 write(*,
'(a)') path(1)(1:length(1))
subroutine readageclasses