| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
199 |
FIZHI_INIT_VEGSURFTILES |
close(iunit) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
47 |
FIZHI_INIT_VEGSURFTILES |
integer bislot,bjslot,iunit |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
67 |
FIZHI_INIT_VEGSURFTILES |
call MDSFINDUNIT( iunit, mythid ) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
74 |
FIZHI_INIT_VEGSURFTILES |
read(iunit,rec=1) globalarr |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
75 |
FIZHI_INIT_VEGSURFTILES |
close( iunit ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
108 |
FIZHI_WRITE_VEGTILES |
call MDSFINDUNIT( iunit, mythid ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
136 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=1) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
144 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=2) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
152 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=3) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
160 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=4) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
171 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
182 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
193 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
204 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
213 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
222 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
231 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
240 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
249 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
258 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
267 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
269 |
FIZHI_WRITE_VEGTILES |
close(iunit) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
321 |
FIZHI_READ_VEGTILES |
integer ig,jg,tn,iunit |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
363 |
FIZHI_READ_VEGTILES |
call MDSFINDUNIT( iunit, mythid ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
387 |
FIZHI_READ_VEGTILES |
read(iunit,rec=1) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
395 |
FIZHI_READ_VEGTILES |
read(iunit,rec=2) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
403 |
FIZHI_READ_VEGTILES |
read(iunit,rec=3) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
411 |
FIZHI_READ_VEGTILES |
read(iunit,rec=4) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
422 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
433 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
444 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
455 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
464 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
473 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
482 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
491 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
49 |
FIZHI_WRITE_VEGTILES |
integer ig,jg,tn,iunit |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
500 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
509 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
518 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
526 |
FIZHI_READ_VEGTILES |
close(iunit) |
|
./pkg/fizhi/update_ocean_exports.F |
117 |
GETSICE |
subroutine GETSICE(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
|
./pkg/fizhi/update_ocean_exports.F |
164 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./pkg/fizhi/update_ocean_exports.F |
235 |
GETSICE |
close(iunit) |
|
./pkg/fizhi/update_ocean_exports.F |
236 |
GETSICE |
open (iunit,file=sicedata,form='unformatted',access='direct', |
|
./pkg/fizhi/update_ocean_exports.F |
239 |
GETSICE |
call BCHEADER (iunit, ndmax, nrec, |
|
./pkg/fizhi/update_ocean_exports.F |
327 |
GETSICE |
call BCDATA (iunit,imbc,jmbc,nd,nd+1,sicebc1,sicebc2) |
|
./pkg/fizhi/update_ocean_exports.F |
378 |
GETSST |
subroutine GETSST(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
|
./pkg/fizhi/update_ocean_exports.F |
425 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./pkg/fizhi/update_ocean_exports.F |
495 |
GETSST |
close(iunit) |
|
./pkg/fizhi/update_ocean_exports.F |
496 |
GETSST |
open (iunit,file=sstdata,form='unformatted',access='direct', |
|
./pkg/fizhi/update_ocean_exports.F |
499 |
GETSST |
call BCHEADER (iunit, ndmax, nrec, |
|
./pkg/fizhi/update_ocean_exports.F |
589 |
GETSST |
call BCDATA (iunit,imbc,jmbc,nd,nd+1,sstbc1,sstbc2) |
|
./pkg/fizhi/update_ocean_exports.F |
625 |
BCDATA |
subroutine BCDATA (iunit,im,jm,nrec1,nrec2,field1,field2) |
|
./pkg/fizhi/update_ocean_exports.F |
647 |
BCDATA |
integer iunit,im,jm,nrec1,nrec2 |
|
./pkg/fizhi/update_ocean_exports.F |
656 |
BCDATA |
read(iunit,rec=nrec1) f1 |
|
./pkg/fizhi/update_ocean_exports.F |
657 |
BCDATA |
read(iunit,rec=nrec2) f2 |
|
./pkg/fizhi/update_ocean_exports.F |
672 |
BCHEADER |
subroutine BCHEADER (iunit, ndmax, nrec, |
|
./pkg/fizhi/update_ocean_exports.F |
701 |
BCHEADER |
integer iunit, ndmax, nrec |
|
./pkg/fizhi/update_ocean_exports.F |
717 |
BCHEADER |
read(iunit,rec=nrec,err=500) cname, cdscrip, |
|
./pkg/fizhi/update_ocean_exports.F |
730 |
BCHEADER |
read(iunit,rec=nrec,err=500) dummy112, |
|
./pkg/fizhi/update_ocean_exports.F |
751 |
BCHEADER |
print *, 'Error reading boundary condition from unit ',iunit |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
117 |
GETSICE |
subroutine GETSICE(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
165 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
190 |
GETSST |
subroutine GETSST(iunit,clim,idim1,idim2,jdim1,jdim2,im1,im2, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
238 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
114 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
129 |
GETSST |
subroutine GETSST(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
174 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
69 |
GETSICE |
subroutine GETSICE(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |