| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
112 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
169 |
GETSICE |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
184 |
GETSST |
. nymdbc,nhmsbc,sst,mythid) |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
241 |
GETSST |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
112 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
|
./pkg/fizhi/update_ocean_exports.F |
168 |
GETSICE |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
203 |
GETSICE |
nymdbc(2) = 0 |
|
./pkg/fizhi/update_ocean_exports.F |
214 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
224 |
GETSICE |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
243 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
258 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
262 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000-1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
265 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000+1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
280 |
GETSICE |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=n,n+2) |
|
./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 |
304 |
GETSICE |
timebc2 = dfloat(nymdbc(nd)) + dfloat(nhmsbc(nd))/1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
306 |
GETSICE |
nymdbc1 = nymdbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
307 |
GETSICE |
nymdbc2 = nymdbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
364 |
GETSST |
. nymdbc,nhmsbc,sst,mythid) |
|
./pkg/fizhi/update_ocean_exports.F |
420 |
GETSST |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
454 |
GETSST |
nymdbc(2) = 0 |
|
./pkg/fizhi/update_ocean_exports.F |
465 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
475 |
GETSST |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
494 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
509 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
513 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000-1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
516 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000+1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
531 |
GETSST |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=n,n+2) |
|
./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 |
557 |
GETSST |
timebc2 = dfloat(nymdbc(nd)) + dfloat(nhmsbc(nd))/1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
559 |
GETSST |
nymdbc1 = nymdbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
560 |
GETSST |
nymdbc2 = nymdbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
648 |
BCHEADER |
. nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
680 |
BCHEADER |
integer im,jm,ndatebc,nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
719 |
BCHEADER |
nymdbc(i) = nymdbc_32(i) |