!
!   $Log: sofie_pre_event_loop.pct,v $
!   Revision 1.5  2008/06/26 19:09:33  deaver
!   Added file opens for the NLTE forward model also setup the hires altitude grid
!
!   Revision 1.4  2008/03/10 11:31:40  deaver
!   commented calls to closefile for lhvy and lfilt as we are not calling linepak yet
!
!   Revision 1.3  2008/02/05 19:27:25  deaver
!   Added the open for loutput.   This will create a file if you
!   want some debug output from linpak
!
!   Revision 1.2  2008/01/30 18:33:50  deaver
!   commented call to openfile for loutput outbase..  not used
!
!   Revision 1.1  2007/12/19 18:17:56  deaver
!   Initial revision
!
!
EOL   =    a,         
           b,        
           c,        
           d,
           e,
           f,
           g,
           h,
           i,
           j,
           z;
!
EOI    =   0;
!
! 
a:  make_db_connections:	xmlfile;

b:  load_fovdata:		fovdatafile, TRUE;

c: kp_inita: FALSE, 1, pout;

!  1 is a formatted file   any other number is unformatted.
d: openfile      :1,loutput,outbase;

e: create_z_grid:  z_hires,  nl_hires, ml, 150.0 , 5.0, 0.2 ;

f:openfile         :1,tm_lvsed,tm_vsedfile;	      

g: openfile	: 1,lfilt, "../Data/lbl_cal/SOFIE_RSR_V1.3.dat";
h: openfile   :1, lhvy, "../Data/lbl_cal/heavy.coef";
i: get_sabero_clim: lsaberO,saberO_NH_file,saberO_SH_file,maltsab,mdaysab,naltsab,ndaysab,saberO_alt,saberO_NH,saberO_SH;
j: lp_parmcset ;
!
!