| 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 |
214 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
216 |
GETSICE |
if( iyear.ne.iyearbc ) then |
|
./pkg/fizhi/update_ocean_exports.F |
243 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
244 |
GETSICE |
if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
246 |
GETSICE |
write(6,*)' B.C. Year: ', iyearbc |
|
./pkg/fizhi/update_ocean_exports.F |
253 |
GETSICE |
if (iyearbc.eq.0) then |
|
./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 |
465 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
467 |
GETSST |
if( iyear.ne.iyearbc ) then |
|
./pkg/fizhi/update_ocean_exports.F |
494 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
495 |
GETSST |
if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
497 |
GETSST |
write(6,*)' B.C. Year: ', iyearbc |
|
./pkg/fizhi/update_ocean_exports.F |
504 |
GETSST |
if (iyearbc.eq.0) then |