SUBROUTINE L_DRIVER_SAMSON

 -----------------------------------------------------------------
 What it does
 ============

• Sets various variables.
• Reads data from spectral file.
• Set boudary conditions.
• Calls FLUX_CALC to calculate fluxes.
• Writes out samson files.

• include lots of *cf files
• many variable declarations
• Several DATA declarations
• RETREIVE NAME OF SPECTRAL FILE AND READ ITS CONTENTS. - calls IN_SPECTRUM
• A few simple checks
• IF (L_WGHT_FLXS_FLTR) CALL CONVOLVE_FUNCTION
• Sets some logicals
• Sets other variables
• lots of CALL READ_SAMSON_FIELD
• SET THE PRESSURES AND TEMPERATURES AT THE BOUNDARIES OF THE LAYERS. - CALL SET_PT_LEVEL
• CHECK THAT THE SPECTRAL DATA IS SUFFICIENT FOR THE PROBLEM TO BE SOLVED - CALL CHECK_DATA
• CALCULATE THE DIRECT, DOWNWARD AND UPWARD FLUXES. - CALL FLUX_CALC
• CALCULATE THE HEATING RATES AND NET FLUX AND PRODUCE THE OUTPUT.
• WRITE OUT THE SAMSON FILES. - CALL WRITE_SAMSON_FIELD

Called by	Calls
none	check_data (summ) convolve_function (summ) flux_calc (summ) read_samson_field (summ) set_pt_level (summ) write_samson_field (summ) dec_spec.finc (summ) read_spec.finc (summ)

 -----------------------------------------------------------------

Return to radiation home page