il = ilnblnk(tdatfile)
il = ilnblnk(sdatfile)
il = ilnblnk(mdtdatfile)
il = ilnblnk(topexfile)
il = ilnblnk(ersfile)
il = ilnblnk(gfofile)
integer ilnblnk
ihi = ilnblnk(data_errfile)
il=ilnblnk(gencost_name(k))
il = ilnblnk(gencost_mask(k))
il=ilnblnk(gencost_barfile(k))
il = ilnblnk(gencost_name(k))
il = ilnblnk(gencost_datafile(k))
il = ilnblnk(gencost_barfile(k))
il = ilnblnk(gencost_errfile(k))
il = ilnblnk(gencost_scalefile(k))
il = ilnblnk(gencost_preproc(k2,k))
il = ilnblnk(gencost_posproc(k2,k))
il = ilnblnk( genfile )
il=ilnblnk( xx_theta_file )
il=ilnblnk( xx_salt_file )
il=ilnblnk( xx_uvel_file )
il=ilnblnk( xx_vvel_file )
il=ilnblnk( xx_hflux_file )
il=ilnblnk( xx_sflux_file )
il=ilnblnk( xx_tauu_file )
il=ilnblnk( xx_tauv_file )
il=ilnblnk( xx_atemp_file )
il=ilnblnk( xx_aqh_file )
il=ilnblnk( xx_uwind_file )
il=ilnblnk( xx_vwind_file )
il=ilnblnk( xx_obcsn_file )
il=ilnblnk( xx_obcss_file )
il=ilnblnk( xx_obcsw_file )
il=ilnblnk( xx_obcse_file )
il=ilnblnk( xx_diffkr_file )
il=ilnblnk( xx_kapgm_file )
il=ilnblnk( xx_kapredi_file )
il=ilnblnk( xx_tr1_file )
il=ilnblnk( xx_sst_file )
il=ilnblnk( xx_sss_file )
il=ilnblnk( xx_depth_file )
il=ilnblnk( xx_efluxy_file )
il=ilnblnk( xx_efluxp_file )
il=ilnblnk( xx_bottomdrag_file )
il=ilnblnk( xx_hfluxm_file )
il=ilnblnk( xx_gen2d_file )
il=ilnblnk( xx_gen3d_file )
il=ilnblnk( xx_precip_file )
il=ilnblnk( xx_swflux_file )
il=ilnblnk( xx_swdown_file )
il=ilnblnk( xx_lwflux_file )
il=ilnblnk( xx_lwdown_file )
il=ilnblnk( xx_evap_file )
il=ilnblnk( xx_snowprecip_file )
il=ilnblnk( xx_apressure_file )
il=ilnblnk( xx_runoff_file )
il=ilnblnk( xx_siarea_file )
il=ilnblnk( xx_siheff_file )
il=ilnblnk( xx_sihsnow_file )
il=ilnblnk( xx_shifwflx_file )
il=ilnblnk( xx_etan_file )
il=ilnblnk( xx_genarr2d_file(iarr) )
il=ilnblnk( xx_genarr3d_file(iarr) )
il=ilnblnk( xx_gentim2d_file(iarr) )
il=ilnblnk( localbarfile )
il=ilnblnk(localobsfile)
il=ilnblnk( areabarfile )
ilfld=ilnblnk( xx_shifwflx_file )
ilgen=ilnblnk( fnamebase )
il = max(ilnblnk(record),1)
il = ilnblnk(xx_etan_file)
il = ilnblnk(xx_vvel_file)
il = ilnblnk(xx_uvel_file)
il = ilnblnk(xx_salt_file)
il = ilnblnk(xx_theta_file)
IL = ilnblnk( adTapeDir )
ilfld=ilnblnk( xx_gen_file )
ilfld = ilnblnk( xx_gen_file )
ilgen=ilnblnk( xx_gen_file )
ilobcse=ilnblnk( xx_obcse_file )
ilobcsn=ilnblnk( xx_obcsn_file )
ilobcss=ilnblnk( xx_obcss_file )
ilobcsw=ilnblnk( xx_obcsw_file )
il=ilnblnk( xx_hfacc_file )
ilgen=ilnblnk( xx_gentim2d_file(iarr) )
il=ilnblnk(fldname)
il=ilnblnk( xx_edtaux_file )
il=ilnblnk( xx_edtauy_file )
il=ilnblnk( xx_relaxsst_file )
il=ilnblnk( xx_relaxsss_file )
il=ilnblnk( xxFileCur )
il=ilnblnk( ymaskobcs )
il=ilnblnk( xx_fname )
il=ilnblnk( weighttype)
il = ilnblnk( fname )
il = ilnblnk(xx_hflux_file)
il = ilnblnk(xx_sflux_file)
il = ilnblnk(xx_tauu_file)
il = ilnblnk(xx_tauv_file)
il = ilnblnk(xx_genarr2d_preproc(jarr,iarr))
il = ilnblnk(xx_genarr3d_preproc(jarr,iarr))
il = ilnblnk(xx_gentim2d_preproc(jarr,iarr))
il = ilnblnk(xx_gentim2d_preproc_c(jarr,iarr))
ils=ilnblnk( ubarfile )
ils=ilnblnk( tauxbarfile )
ils=ilnblnk( tauybarfile )
il = ilnblnk(gencost_mask(kgen))
il = ilnblnk( gencost_barfile(kgen) )
il=ilnblnk( gencost_barfile(kgen) )
integer ilnblnk, ifnblnk
il=ilnblnk( fname0 )
ilps=ilnblnk( gencost_datafile(igen_mdt) )
ilps=ilnblnk( gencost_datafile(igen_tp) )
ilps=ilnblnk( gencost_datafile(igen_ers) )
ilps=ilnblnk( gencost_datafile(igen_gfo) )
ilps=ilnblnk( gencost_barfile(igen_etaday) )
ilps=ilnblnk( gencost_barfile(kgen) )
il=ilnblnk(gencost_datafile(kgen))
il=ilnblnk(gencost_barfile(kgen(icount_transp)))
il=ilnblnk(gencost_name(kgen(icount)))
il=ilnblnk(gencost_barfile(kgen(icount)))
il=ilnblnk(outname)
iltheta = ilnblnk( tbarfile )
ilsalt = ilnblnk( sbarfile )
iluvel = ilnblnk( ubarfile )
ilvvel = ilnblnk( vbarfile )
ilfld=ilnblnk( xx_obcse_file )
ilfld=ilnblnk( xx_obcsn_file )
ilfld=ilnblnk( xx_obcss_file )
ilfld=ilnblnk( xx_obcsw_file )
il=ilnblnk(sla_file)
ilps=ilnblnk( psbarfile )
ilps=ilnblnk( bpbarfile )
ilt=ilnblnk( sigmaRbarfile )
ilt=ilnblnk( tbarfile )
ilt=ilnblnk( sstbarfile )
ils=ilnblnk( sbarfile )
ils=ilnblnk( wbarfile )
ilps=ilnblnk( tauxbarfile )
ilps=ilnblnk( tauybarfile )
ilps=ilnblnk( hfluxmeanbarfile )
ilps=ilnblnk( sfluxmeanbarfile )
ilps=ilnblnk( iestaubarfile )
ilps=ilnblnk( smrareabarfile )
ilps=ilnblnk( smrsstbarfile )
ilps=ilnblnk( smrsssbarfile )
ilt=ilnblnk( gencost_barfile(k) )
ihi = ilnblnk(gencost_datafile(k))
ihi = ilnblnk(costTranspDataFile)
ihi = ilnblnk(tpTimeMaskFile)
ihi = ilnblnk(ersTimeMaskFile)
ihi = ilnblnk(gfoTimeMaskFile)