integer ifc

        open(unit=ifc,file=cfname)

        write(ifc,*) 'fc =', fc

        write(ifc,*) 'f_temp =', f_temp, no_temp

        write(ifc,*) 'f_salt =', f_salt, no_salt

        write(ifc,*) 'f_temp0 =', f_temp0, no_temp0

        write(ifc,*) 'f_salt0 =', f_salt0, no_salt0

        write(ifc,*) 'f_tauu =', f_tauu, no_tauu

        write(ifc,*) 'f_tauum =', f_tauum, no_tauum

        write(ifc,*) 'f_tauv =', f_tauv, no_tauv

        write(ifc,*) 'f_tauvm =', f_tauvm, no_tauvm

        write(ifc,*) 'f_hflux =', f_hflux, no_hflux

        write(ifc,*) 'f_hfluxm =', f_hfluxm, no_hfluxm

        write(ifc,*) 'f_hfluxmm =', f_hfluxmm, no_hfluxmm

        write(ifc,*) 'f_sflux =', f_sflux, no_sflux

        write(ifc,*) 'f_sfluxm =', f_sfluxm, no_sfluxm

        write(ifc,*) 'f_sfluxmm =', f_sfluxmm, no_sfluxmm

        write(ifc,*) 'f_uwind =', f_uwind, no_uwind

        write(ifc,*) 'f_vwind =', f_vwind, no_vwind

        write(ifc,*) 'f_atemp =', f_atemp, no_atemp

        write(ifc,*) 'f_aqh =', f_aqh, no_aqh

        write(ifc,*) 'f_ssh =', f_ssh, no_ssh

        write(ifc,*) 'f_sst =', f_sst, no_sst

        write(ifc,*) 'f_tmi =', f_tmi, no_tmi

        write(ifc,*) 'f_sss =', f_sss, no_sss

        write(ifc,*) 'f_atl =', f_atl, no_atl

        write(ifc,*) 'f_ctdt =', f_ctdt, no_ctdt

        write(ifc,*) 'f_ctds =', f_ctds, no_ctds

        write(ifc,*) 'f_ctdtclim =', f_ctdtclim, no_ctdtclim

        write(ifc,*) 'f_ctdsclim =', f_ctdsclim, no_ctdsclim

        write(ifc,*) 'f_xbt =', f_xbt, no_xbt

        write(ifc,*) 'f_argot =', f_argot, no_argot

        write(ifc,*) 'f_argos =', f_argos, no_argos

        write(ifc,*) 'objf_hmean =', objf_hmean, no_hmean

        write(ifc,*) 'f_drifter =', f_drifter, no_drifter

        write(ifc,*) 'f_sdrift =', f_sdrift, no_sdrift

        write(ifc,*) 'f_tdrift =', f_tdrift, no_tdrift

        write(ifc,*) 'f_wdrift =', f_wdrift, no_wdrift

        write(ifc,*) 'f_scatx =', f_scatx, no_scatx

        write(ifc,*) 'f_scaty =', f_scaty, no_scaty

        write(ifc,*) 'f_scatxm =', f_scatxm, no_scatxm

        write(ifc,*) 'f_scatym =', f_scatym, no_scatym

        write(ifc,*) 'f_obcsn =', f_obcsn, no_obcsn

        write(ifc,*) 'f_obcss =', f_obcss, no_obcss

        write(ifc,*) 'f_obcsw =', f_obcsw, no_obcsw

        write(ifc,*) 'f_obcse =', f_obcse, no_obcse

        write(ifc,*) 'f_ageos =', f_ageos, no_ageos

        write(ifc,*) 'f_ice   =', f_ice, no_ice

        write(ifc,*) 'f_kapgm =', f_kapgm, no_kapgm

        write(ifc,*) 'f_diffkr=', f_diffkr, no_diffkr

        write(ifc,*) 'f_ini_fin =', f_ini_fin, no_ini_fin

        write(ifc,*) 'f_eddytau =', f_eddytau, no_eddytau

        close(ifc)

      ifc = 30