SUBROUTINE R2_LW_SPECIN

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

To read a longwave namelist into a spectral array.

The spectrum is read into the dynamically allocated array and then reduced to a more manageable size.

 -----------------------------------------------------------------
 Structure of Routine
 ====================

1. Define variables, the namelist R2LWSP and the large common block, R2LWSPCM
2. Read the longwave spectrum as a namelist.
   • CALL GET_FILE(80, LW_SPECTRAL_FILE, 80, IERR_GET_FILE)
   • OPEN(UNIT=80, FILE=LW_SPECTRAL_FILE, IOSTAT=IOS)
   • READ(80, R2LWSP) followed by CLOSE(80)
3. Set reduced dimensions
4. SEARCH THE SPECTRUM TO FIND MAXIMUM DIMENSIONS.
5. Aerosols must be treated carefully to allow for various different combinations without requiring the spectral file to be too constrained. Only those required will be retained.
6. Check the spectral file for climatological aerosols - IF (L_CLIMAT_AEROSOL) THEN
7. Check the spectral file for sulphate aerosols - IF (L_USE_SULPC_DIRECT) THEN
8. TRANSFER THE LARGE NAMELIST TO THE REDUCED SPECTRUM.
   • CALL R2_COMPRESS_SPECTRUM

Called by	Calls
No radiation routines readlwsp (from core lem code)	get_file (from core lem code) r2_compress_spectrum (summ)

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

Return to radiation home page