72 WRITE(noutlu,*)
' *** LEVEL 3 - SUBROUTINE OPNDIA'
79 SELECT CASE ( trim(cdiafmt) )
81 IF ( ndiap1==1 .OR. ndiap2==1 )
THEN
82 IF ( ninsdia==1 )
THEN
83 yfname =
'2d.ins.vairmer'
84 OPEN(unit=n2vilu,file=trim(yfname),form=
'UNFORMATTED')
86 IF ( navedia==1 )
THEN
87 yfname =
'2d.ave.vairmer'
88 OPEN(unit=n2valu,file=trim(yfname),form=
'UNFORMATTED')
92 yfname =
'0d.ins.vairmer'
93 OPEN(unit=n0vilu,file=trim(yfname),form=
'UNFORMATTED')
96 IF ( ndiap1==1 .OR. ndiap2==1 .OR. ndiap3==1 )
THEN
97 IF ( ninsdia==1 )
THEN
99 OPEN(unit=n2vilu,file=trim(yfname),form=
'UNFORMATTED')
101 IF ( navedia==1 )
THEN
102 yfname =
'2d.ave.ar5'
103 OPEN(unit=n2valu,file=trim(yfname),form=
'UNFORMATTED')
106 IF ( ndiap1==1 )
THEN
107 IF ( ninsdia==1 )
THEN
108 yfname =
'0d.ins.ar5'
109 OPEN(unit=n0vilu,file=trim(yfname),form=
'UNFORMATTED')
111 IF ( navedia==1 )
THEN
112 yfname =
'0d.ave.ar5'
113 OPEN(unit=n0valu,file=trim(yfname),form=
'UNFORMATTED')
116 IF ( ndiapx==1 )
THEN
117 IF ( ninsdia==1 )
THEN
119 OPEN(unit=nxvilu,file=trim(yfname),form=
'UNFORMATTED')
121 IF ( navedia==1 )
THEN
123 OPEN(unit=nxvalu,file=trim(yfname),form=
'UNFORMATTED')
133 WRITE(noutlu,*)
' *** LEVEL 3 - END SUBROUTINE OPNDIA'
154 if (lp1)
WRITE(noutlu,*)
' '
155 if (lp1)
WRITE(noutlu,*)
' *** LEVEL 3 - SUBROUTINE CLSDIA'
156 if (lp1)
WRITE(noutlu,*)
' '
161 SELECT CASE ( trim(cdiafmt) )
163 IF ( ndiap1==1 .OR. ndiap2==1 )
THEN
164 IF ( ninsdia==1 )
CLOSE(n2vilu)
165 IF ( navedia==1 )
CLOSE(n2valu)
167 IF ( ndiap3==1 )
CLOSE(n0vilu)
169 IF ( ndiap1==1 .OR. ndiap2==1 .OR. ndiap3==1 )
THEN
170 IF ( ninsdia==1 )
CLOSE(n2vilu)
171 IF ( navedia==1 )
CLOSE(n2valu)
173 IF ( ndiapx==1 )
THEN
174 IF ( ninsdia==1 )
CLOSE(nxvilu)
175 IF ( navedia==1 )
CLOSE(nxvalu)
182 if (lp1)
WRITE(noutlu,*)
' '
183 if (lp1)
WRITE(noutlu,*)
' *** LEVEL 3 - END SUBROUTINE CLSDIA'
184 if (lp1)
WRITE(noutlu,*)
' '