File |
Line number |
Procedure |
Code |
./pkg/fizhi/update_ocean_exports.F |
175 |
GETSICE |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
./pkg/fizhi/update_ocean_exports.F |
278 |
GETSICE |
ndby3 = ndatebc/3 |
./pkg/fizhi/update_ocean_exports.F |
279 |
GETSICE |
do n = 1, ndby3*3,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 |
427 |
GETSST |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
./pkg/fizhi/update_ocean_exports.F |
529 |
GETSST |
ndby3 = ndatebc/3 |
./pkg/fizhi/update_ocean_exports.F |
530 |
GETSST |
do n = 1, ndby3*3,3 |
./pkg/fizhi/update_ocean_exports.F |
534 |
GETSST |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=ndby3*3+1,ndatebc) |