| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
184 |
GETSICE |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
231 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
233 |
GETSICE |
if( iyear.ne.iyearbc ) then |
|
./pkg/fizhi/update_ocean_exports.F |
260 |
GETSICE |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
261 |
GETSICE |
if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
263 |
GETSICE |
write(6,*)' B.C. Year: ', iyearbc |
|
./pkg/fizhi/update_ocean_exports.F |
270 |
GETSICE |
if (iyearbc.eq.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
445 |
GETSST |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
491 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
493 |
GETSST |
if( iyear.ne.iyearbc ) then |
|
./pkg/fizhi/update_ocean_exports.F |
520 |
GETSST |
iyearbc = nymdbc(2)/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
521 |
GETSST |
if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
523 |
GETSST |
write(6,*)' B.C. Year: ', iyearbc |
|
./pkg/fizhi/update_ocean_exports.F |
530 |
GETSST |
if (iyearbc.eq.0) then |