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 |
194 |
GETSICE |
save imbc,jmbc,lat0,lon0,ndatebc,undef |
./pkg/fizhi/update_ocean_exports.F |
240 |
GETSICE |
. cname, cdscrip, imbc, jmbc, lat0, lon0, |
./pkg/fizhi/update_ocean_exports.F |
252 |
GETSICE |
if(.not.error.and.imbc*jmbc.ne.xsize*ysize)then |
./pkg/fizhi/update_ocean_exports.F |
254 |
GETSICE |
write(6,*) ' B.C. Resolution: ',imbc*jmbc |
./pkg/fizhi/update_ocean_exports.F |
291 |
GETSICE |
write(6,*) ' Resolution: x= ',imbc,' y= ',jmbc, |
./pkg/fizhi/update_ocean_exports.F |
327 |
GETSICE |
call BCDATA (iunit,imbc,jmbc,nd,nd+1,sicebc1,sicebc2) |
./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 |
455 |
GETSST |
save imbc,jmbc,lat0,lon0,ndatebc,undef |
./pkg/fizhi/update_ocean_exports.F |
500 |
GETSST |
. cname, cdscrip, imbc, jmbc, lat0, lon0, |
./pkg/fizhi/update_ocean_exports.F |
512 |
GETSST |
if(.not.error.and.imbc*jmbc.ne.xsize*ysize)then |
./pkg/fizhi/update_ocean_exports.F |
514 |
GETSST |
write(6,*) ' B.C. Resolution: ',imbc*jmbc |
./pkg/fizhi/update_ocean_exports.F |
551 |
GETSST |
write(6,*) ' Resolution: x= ',imbc,' y= ',jmbc, |
./pkg/fizhi/update_ocean_exports.F |
589 |
GETSST |
call BCDATA (iunit,imbc,jmbc,nd,nd+1,sstbc1,sstbc2) |