| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
185 |
GETSICE |
integer ndatebc,nrec |
|
./pkg/fizhi/update_ocean_exports.F |
194 |
GETSICE |
save imbc,jmbc,lat0,lon0,ndatebc,undef |
|
./pkg/fizhi/update_ocean_exports.F |
241 |
GETSICE |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
274 |
GETSICE |
do n = 2, ndatebc-1 |
|
./pkg/fizhi/update_ocean_exports.F |
281 |
GETSICE |
n = ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
295 |
GETSICE |
ndby3 = ndatebc/3 |
|
./pkg/fizhi/update_ocean_exports.F |
300 |
GETSICE |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=ndby3*3+1,ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
320 |
GETSICE |
do while (.not.found .and. nd .le. ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
446 |
GETSST |
integer ndatebc,nrec |
|
./pkg/fizhi/update_ocean_exports.F |
455 |
GETSST |
save imbc,jmbc,lat0,lon0,ndatebc,undef |
|
./pkg/fizhi/update_ocean_exports.F |
501 |
GETSST |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
534 |
GETSST |
do n = 2, ndatebc-1 |
|
./pkg/fizhi/update_ocean_exports.F |
541 |
GETSST |
n = ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
555 |
GETSST |
ndby3 = ndatebc/3 |
|
./pkg/fizhi/update_ocean_exports.F |
560 |
GETSST |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=ndby3*3+1,ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
582 |
GETSST |
do while (.not.found .and. nd .le. ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
673 |
BCHEADER |
. cname, cdscrip, im, jm, lat0, lon0, ndatebc, |
|
./pkg/fizhi/update_ocean_exports.F |
706 |
BCHEADER |
integer im,jm,ndatebc,nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
739 |
BCHEADER |
ndatebc = ndatebc_32 |
|
./pkg/fizhi/update_ocean_exports.F |
740 |
BCHEADER |
do i=1,ndatebc |