166 |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
167 |
& Nr, globfld3d, irec, mythid) |
& Nr, globfld3d, irec, mythid) |
168 |
|
|
169 |
|
#ifndef ALLOW_ADMTLM |
170 |
write(cunit) ncvarindex(ivartype) |
write(cunit) ncvarindex(ivartype) |
171 |
write(cunit) 1 |
write(cunit) 1 |
172 |
write(cunit) 1 |
write(cunit) 1 |
173 |
|
#endif |
174 |
do k = 1, nr |
do k = 1, nr |
175 |
irectrue = (irec-1)*nr + k |
irectrue = (irec-1)*nr + k |
176 |
if ( doZscalePack ) then |
if ( doZscalePack ) then |
216 |
#else /* ALLOW_NONDIMENSIONAL_CONTROL_IO undef */ |
#else /* ALLOW_NONDIMENSIONAL_CONTROL_IO undef */ |
217 |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
218 |
#endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */ |
#endif /* ALLOW_NONDIMENSIONAL_CONTROL_IO */ |
219 |
|
#ifdef ALLOW_ADMTLM |
220 |
|
nveccount = nveccount + 1 |
221 |
|
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
222 |
|
#endif |
223 |
endif |
endif |
224 |
enddo |
enddo |
225 |
enddo |
enddo |
229 |
enddo |
enddo |
230 |
c --> check cbuffindex. |
c --> check cbuffindex. |
231 |
if ( cbuffindex .gt. 0) then |
if ( cbuffindex .gt. 0) then |
232 |
|
#ifndef ALLOW_ADMTLM |
233 |
write(cunit) cbuffindex |
write(cunit) cbuffindex |
234 |
write(cunit) k |
write(cunit) k |
235 |
|
#endif |
236 |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
237 |
endif |
endif |
238 |
c |
c |