integer ilnblnk
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_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_etan_file )
il=ilnblnk( xx_theta_file )
il=ilnblnk( xx_salt_file )
il=ilnblnk( localbarfile )
il=ilnblnk(localobsfile)
il=ilnblnk( areabarfile )
il = ilnblnk(AreaFile)
il = ilnblnk(HeffFile)
ihi = ilnblnk(data_errfile)
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(active_var_file)
il = ilnblnk( active_var_file )
il = ilnblnk( name )
jl = ilnblnk( adTapeDir )
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 )
il=ilnblnk( xx_bottomdrag_file )
il=ilnblnk( xx_edtaux_file )
il=ilnblnk( xx_edtauy_file )
il=ilnblnk( xx_uvel_file )
il=ilnblnk( xx_vvel_file )
il=ilnblnk( xx_relaxsst_file )
il=ilnblnk( xx_relaxsss_file )
il=ilnblnk( xxFileCur )
il=ilnblnk( ymaskobcs )
ilfld=ilnblnk( xx_obcsn_file )
ilfld=ilnblnk( xx_obcss_file )
ilfld=ilnblnk( xx_obcsw_file )
ilfld=ilnblnk( xx_obcse_file )
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)
ilu=ilnblnk( sbarfile )
il=ilnblnk(argosfile)
ilu=ilnblnk( tbarfile )
il=ilnblnk(argotfile)
ils=ilnblnk( ubarfile )
ils=ilnblnk( tauxbarfile )
ils=ilnblnk( tauybarfile )
ilfld = ilnblnk( xx_bottomdrag_file )
ilps=ilnblnk( bpbarfile )
il=ilnblnk(bpdatfile)
il=ilnblnk(ctdsfile)
ilctdsclim = ilnblnk( sbarfile )
il=ilnblnk(ctdtfile)
ilctdtclim = ilnblnk( tbarfile )
ilu=ilnblnk( ubarfile )
ilu=ilnblnk( vbarfile )
ilfld = ilnblnk( xx_diffkr_file )
iltheta = ilnblnk( tbarfile )
ilsalt = ilnblnk( sbarfile )
ilu = ilnblnk( ubarfile )
ilu = ilnblnk( vbarfile )
ilw = ilnblnk( wbarfile )
ilfld=ilnblnk( xx_gen_file )
ilps=ilnblnk( psbarfile )
ilps=ilnblnk( sstbarfile )
il=ilnblnk(gencost_datafile(igen_amsre))
ilfld = ilnblnk( xx_kapgm_file )
ilfld = ilnblnk( xx_kapredi_file )
ilsalt = ilnblnk( hfluxmeanbarfile )
ilsalt = ilnblnk( sfluxmeanbarfile )
iluvel = ilnblnk( ubarfile )
ilvvel = ilnblnk( vbarfile )
il = ilnblnk( tbarfile )
il = ilnblnk( sbarfile )
il = ilnblnk( ubarfile )
il = ilnblnk( vbarfile )
il=ilnblnk(ersfile)
ihi = ilnblnk(geoid_covariancefile)
il=ilnblnk(gfofile)
il=ilnblnk(scatxdatfile)
il=ilnblnk(scatydatfile)
il=ilnblnk(topexfile)
ilfld = ilnblnk( xx_salt_file )
ilfld = ilnblnk( xx_salt_ini_fin_file )
ilsalt = ilnblnk( tauxbarfile )
ilsalt = ilnblnk( tauybarfile )
il=ilnblnk(sla_file)
ilfld = ilnblnk( xx_edtauy_file )
ilfld = ilnblnk( xx_edtaux_file )
ilfld = ilnblnk( xx_theta_file )
ilfld = ilnblnk( xx_theta_ini_fin_file )
il=ilnblnk( tbarfile )
il=ilnblnk( sbarfile )
il=ilnblnk( ubarfile )
il=ilnblnk( vbarfile )
il=ilnblnk(xbtfile)
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( smrareabarfile )
ilps=ilnblnk( smrsstbarfile )
ilps=ilnblnk( smrsssbarfile )
ilt=ilnblnk( gencost_barfile(k) )
ihi = ilnblnk(costTranspDataFile)
ihi = ilnblnk(tpTimeMaskFile)
ihi = ilnblnk(ersTimeMaskFile)
ihi = ilnblnk(gfoTimeMaskFile)
il = ilnblnk(tdatfile)
il = ilnblnk(sdatfile)
il = ilnblnk(topexmeanfile)
il = ilnblnk(topexfile)
il = ilnblnk(ersfile)
il = ilnblnk(gfofile)
il = ilnblnk( genfile )
il = ilnblnk(ustressfile)
il = ilnblnk(vstressfile)
il = ilnblnk(hfluxfile)
il = ilnblnk(sfluxfile)
il = ilnblnk(swfluxfile)
il = ilnblnk(uwindfile)
il = ilnblnk(vwindfile)
il = ilnblnk(atempfile)
il = ilnblnk(aqhfile)
il = ilnblnk(lwfluxfile)
il = ilnblnk(precipfile)
il = ilnblnk(evapfile)
il = ilnblnk(runofffile)
il = ilnblnk(swdownfile)
il = ilnblnk(lwdownfile)
il = ilnblnk(apressurefile)
il = ilnblnk(areamaskfile)
il = ilnblnk(climsstfile)
il = ilnblnk(climsssfile)