SUBROUTINE SET_PT_LEVEL

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

Sets P_LEVEL and T_LEVEL

 -----------------------------------------------------------------
 Structure
 ============

• Definitions
• Ask 'ARE PRESSURES (AND TEMPERATURES) AT THE BOUNDARIES OF LAYERS TO BE READ IN OR SET BY INTERPOLATION ?'
• if PRESSURES (AND TEMPERATURES) are read in then
  1. read base_name.tl which provides p_level and t_level.
• else
  1. P_LEVEL(1, N_LAYER)=PSTAR(1) ; P_LEVEL(1, 0)=0.0D+00
  2. P_LEVEL(1, I-1)=0.5*(P(1, I)+P(1, I-1)) for 2
  3. IF (ISOLIR.EQ.IP_INFRA_RED) THEN
     1. CALL SPLINE_FIT
     2. CALL SPLINE_EVALUATE
     3. calculation for t_level

Called by	Calls
l_driver_samson (summ)	read_samson_field (summ) spline_evaluate spline_fit

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

Return to radiation home page