| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
120 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
|
./pkg/fizhi/update_ocean_exports.F |
177 |
GETSICE |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
221 |
GETSICE |
nymdbc(2) = 0 |
|
./pkg/fizhi/update_ocean_exports.F |
231 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
241 |
GETSICE |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
260 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
275 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
279 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000-1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
282 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000+1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
297 |
GETSICE |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=n,n+2) |
|
./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 |
321 |
GETSICE |
timebc2 = dfloat(nymdbc(nd)) + dfloat(nhmsbc(nd))/1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
323 |
GETSICE |
nymdbc1 = nymdbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
324 |
GETSICE |
nymdbc2 = nymdbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
381 |
GETSST |
. nymdbc,nhmsbc,sst,mythid) |
|
./pkg/fizhi/update_ocean_exports.F |
438 |
GETSST |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
481 |
GETSST |
nymdbc(2) = 0 |
|
./pkg/fizhi/update_ocean_exports.F |
491 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
501 |
GETSST |
. ndatebc, nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
520 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
535 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
539 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000-1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
542 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000+1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
557 |
GETSST |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=n,n+2) |
|
./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 |
583 |
GETSST |
timebc2 = dfloat(nymdbc(nd)) + dfloat(nhmsbc(nd))/1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
585 |
GETSST |
nymdbc1 = nymdbc(nd-1) |
|
./pkg/fizhi/update_ocean_exports.F |
586 |
GETSST |
nymdbc2 = nymdbc(nd) |
|
./pkg/fizhi/update_ocean_exports.F |
674 |
BCHEADER |
. nymdbc, nhmsbc, undef, error) |
|
./pkg/fizhi/update_ocean_exports.F |
706 |
BCHEADER |
integer im,jm,ndatebc,nymdbc(ndmax),nhmsbc(ndmax) |
|
./pkg/fizhi/update_ocean_exports.F |
745 |
BCHEADER |
nymdbc(i) = nymdbc_32(i) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
120 |
GETSICE |
. nymdbc,nhmsbc,sice,mythid) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
178 |
GETSICE |
integer nymdbc(ndmax),nhmsbc(ndmax) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
193 |
GETSST |
. nymdbc,nhmsbc,sst,mythid) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
251 |
GETSST |
integer nymdbc(ndmax),nhmsbc(ndmax) |