| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
181 |
GETSICE |
character*22 sicedata |
|
./pkg/fizhi/update_ocean_exports.F |
207 |
GETSICE |
if(xsize.eq.192)sicedata='sice19232.weekly.clim' |
|
./pkg/fizhi/update_ocean_exports.F |
208 |
GETSICE |
if(xsize.eq.612)sicedata='sice612102.weekly.clim' |
|
./pkg/fizhi/update_ocean_exports.F |
211 |
GETSICE |
. WRITE(sicedata,'(A,I4)')'sice19232.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
213 |
GETSICE |
. WRITE(sicedata,'(A,I4)')'sice612102.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
236 |
GETSICE |
open (iunit,file=sicedata,form='unformatted',access='direct', |