| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
442 |
GETSST |
character*21 sstdata |
|
./pkg/fizhi/update_ocean_exports.F |
468 |
GETSST |
if(xsize.eq.192)sstdata='sst19232.weekly.clim' |
|
./pkg/fizhi/update_ocean_exports.F |
469 |
GETSST |
if(xsize.eq.612)sstdata='sst612102.weekly.clim' |
|
./pkg/fizhi/update_ocean_exports.F |
472 |
GETSST |
. WRITE(sstdata,'(A,I4)')'sst19232.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
474 |
GETSST |
. WRITE(sstdata,'(A,I4)')'sst612102.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
496 |
GETSST |
open (iunit,file=sstdata,form='unformatted',access='direct', |