| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
179 |
GETSICE |
character*8 cname |
|
./pkg/fizhi/update_ocean_exports.F |
240 |
GETSICE |
. cname, cdscrip, imbc, jmbc, lat0, lon0, |
|
./pkg/fizhi/update_ocean_exports.F |
246 |
GETSICE |
if (.not.error .and. cname.ne.'SICE') then |
|
./pkg/fizhi/update_ocean_exports.F |
247 |
GETSICE |
write(6,*)'Wrong data in SICE boundary condition file => ',cname |
|
./pkg/fizhi/update_ocean_exports.F |
289 |
GETSICE |
write(6,*) ' Variable: ',cname |
|
./pkg/fizhi/update_ocean_exports.F |
440 |
GETSST |
character*8 cname |
|
./pkg/fizhi/update_ocean_exports.F |
500 |
GETSST |
. cname, cdscrip, imbc, jmbc, lat0, lon0, |
|
./pkg/fizhi/update_ocean_exports.F |
506 |
GETSST |
if (.not.error .and. cname.ne.'SST') then |
|
./pkg/fizhi/update_ocean_exports.F |
507 |
GETSST |
write(6,*)'Wrong data in SST boundary condition file => ',cname |
|
./pkg/fizhi/update_ocean_exports.F |
549 |
GETSST |
write(6,*) ' Variable: ',cname |
|
./pkg/fizhi/update_ocean_exports.F |
673 |
BCHEADER |
. cname, cdscrip, im, jm, lat0, lon0, ndatebc, |
|
./pkg/fizhi/update_ocean_exports.F |
703 |
BCHEADER |
character*8 cname |
|
./pkg/fizhi/update_ocean_exports.F |
717 |
BCHEADER |
read(iunit,rec=nrec,err=500) cname, cdscrip, |