| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
176 |
GETSICE |
integer ndatebc,nrec |
|
./pkg/fizhi/update_ocean_exports.F |
185 |
GETSICE |
save imbc,jmbc,lat0,lon0,ndatebc,undef |
|
./pkg/fizhi/update_ocean_exports.F |
224 |
GETSICE |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
257 |
GETSICE |
do n = 2, ndatebc-1 |
|
./pkg/fizhi/update_ocean_exports.F |
264 |
GETSICE |
n = ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
278 |
GETSICE |
ndby3 = ndatebc/3 |
|
./pkg/fizhi/update_ocean_exports.F |
283 |
GETSICE |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=ndby3*3+1,ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
303 |
GETSICE |
do while (.not.found .and. nd .le. ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
428 |
GETSST |
integer ndatebc,nrec |
|
./pkg/fizhi/update_ocean_exports.F |
437 |
GETSST |
save imbc,jmbc,lat0,lon0,ndatebc,undef |
|
./pkg/fizhi/update_ocean_exports.F |
475 |
GETSST |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
508 |
GETSST |
do n = 2, ndatebc-1 |
|
./pkg/fizhi/update_ocean_exports.F |
515 |
GETSST |
n = ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
529 |
GETSST |
ndby3 = ndatebc/3 |
|
./pkg/fizhi/update_ocean_exports.F |
534 |
GETSST |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=ndby3*3+1,ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
556 |
GETSST |
do while (.not.found .and. nd .le. ndatebc) |
|
./pkg/fizhi/update_ocean_exports.F |
647 |
BCHEADER |
. cname, cdscrip, im, jm, lat0, lon0, ndatebc, |
|
./pkg/fizhi/update_ocean_exports.F |
680 |
BCHEADER |
integer im,jm,ndatebc,nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
713 |
BCHEADER |
ndatebc = ndatebc_32 |
|
./pkg/fizhi/update_ocean_exports.F |
714 |
BCHEADER |
do i=1,ndatebc |