module spectral_output

   use shr_kind_mod,     only: r8 => shr_kind_r8
   use radgrid,          only: ntot_wavlnrng
   use ppgrid

   implicit none
   private 
   save

!
! Pubic Interfaces
!
  public :: addfld_spectral_intervals
  public :: outfld_spectral_flux_fullsky
  public :: outfld_spectral_flux_clearsky

!============================================================================
contains
!============================================================================

!============================================================================
!
! Public subroutines
!
!============================================================================


!============================================================================
 
  subroutine addfld_spectral_intervals

!------------------------------------------------------------------------
!
! Purpose:  Add spectral output to master field list
!
!------------------------------------------------------------------------
!
    use cam_history,     only: addfld, phys_decomp

    ! shortwave fieldsa
    call addfld ('FUS_int01     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 01',phys_decomp)
    call addfld ('FDS_int01     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 01',phys_decomp)
    call addfld ('FUSC_int01     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 01',phys_decomp)
    call addfld ('FDSC_int01     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 01',phys_decomp)
    call addfld ('FUS_toa_int01     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 01, toa',phys_decomp)
    call addfld ('FDS_toa_int01     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 01, toa',phys_decomp)
    call addfld ('FUSC_toa_int01     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 01, toa',phys_decomp)
    call addfld ('FDSC_toa_int01     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 01, toa',phys_decomp)

    call addfld ('FUS_int02     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 02',phys_decomp)
    call addfld ('FDS_int02     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 02',phys_decomp)
    call addfld ('FUSC_int02     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 02',phys_decomp)
    call addfld ('FDSC_int02     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 02',phys_decomp)
    call addfld ('FUS_toa_int02     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 02, toa',phys_decomp)
    call addfld ('FDS_toa_int02     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 02, toa',phys_decomp)
    call addfld ('FUSC_toa_int02     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 02, toa',phys_decomp)
    call addfld ('FDSC_toa_int02     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 02, toa',phys_decomp)

    call addfld ('FUS_int03     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 03',phys_decomp)
    call addfld ('FDS_int03     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 03',phys_decomp)
    call addfld ('FUSC_int03     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 03',phys_decomp)
    call addfld ('FDSC_int03     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 03',phys_decomp)
    call addfld ('FUS_toa_int03     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 03, toa',phys_decomp)
    call addfld ('FDS_toa_int03     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 03, toa',phys_decomp)
    call addfld ('FUSC_toa_int03     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 03, toa',phys_decomp)
    call addfld ('FDSC_toa_int03     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 03, toa',phys_decomp)

    call addfld ('FUS_int04     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 04',phys_decomp)
    call addfld ('FDS_int04     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 04',phys_decomp)
    call addfld ('FUSC_int04     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 04',phys_decomp)
    call addfld ('FDSC_int04     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 04',phys_decomp)
    call addfld ('FUS_toa_int04     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 04, toa',phys_decomp)
    call addfld ('FDS_toa_int04     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 04, toa',phys_decomp)
    call addfld ('FUSC_toa_int04     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 04, toa',phys_decomp)
    call addfld ('FDSC_toa_int04     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 04, toa',phys_decomp)

    call addfld ('FUS_int05     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 05',phys_decomp)
    call addfld ('FDS_int05     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 05',phys_decomp)
    call addfld ('FUSC_int05     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 05',phys_decomp)
    call addfld ('FDSC_int05     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 05',phys_decomp)
    call addfld ('FUS_toa_int05     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 05, toa',phys_decomp)
    call addfld ('FDS_toa_int05     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 05, toa',phys_decomp)
    call addfld ('FUSC_toa_int05     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 05, toa',phys_decomp)
    call addfld ('FDSC_toa_int05     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 05, toa',phys_decomp)

    call addfld ('FUS_int06     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 06',phys_decomp)
    call addfld ('FDS_int06     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 06',phys_decomp)
    call addfld ('FUSC_int06     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 06',phys_decomp)
    call addfld ('FDSC_int06     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 06',phys_decomp)
    call addfld ('FUS_toa_int06     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 06, toa',phys_decomp)
    call addfld ('FDS_toa_int06     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 06, toa',phys_decomp)
    call addfld ('FUSC_toa_int06     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 06, toa',phys_decomp)
    call addfld ('FDSC_toa_int06     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 06, toa',phys_decomp)

    call addfld ('FUS_int07     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 07',phys_decomp)
    call addfld ('FDS_int07     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 07',phys_decomp)
    call addfld ('FUSC_int07     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 07',phys_decomp)
    call addfld ('FDSC_int07     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 07',phys_decomp)
    call addfld ('FUS_toa_int07     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 07, toa',phys_decomp)
    call addfld ('FDS_toa_int07     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 07, toa',phys_decomp)
    call addfld ('FUSC_toa_int07     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 07, toa',phys_decomp)
    call addfld ('FDSC_toa_int07     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 07, toa',phys_decomp)

    call addfld ('FUS_int08     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 08',phys_decomp)
    call addfld ('FDS_int08     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 08',phys_decomp)
    call addfld ('FUSC_int08     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 08',phys_decomp)
    call addfld ('FDSC_int08     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 08',phys_decomp)
    call addfld ('FUS_toa_int08     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 08, toa',phys_decomp)
    call addfld ('FDS_toa_int08     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 08, toa',phys_decomp)
    call addfld ('FUSC_toa_int08     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 08, toa',phys_decomp)
    call addfld ('FDSC_toa_int08     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 08, toa',phys_decomp)

    call addfld ('FUS_int09     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 09',phys_decomp)
    call addfld ('FDS_int09     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 09',phys_decomp)
    call addfld ('FUSC_int09     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 09',phys_decomp)
    call addfld ('FDSC_int09     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 09',phys_decomp)
    call addfld ('FUS_toa_int09     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 09, toa',phys_decomp)
    call addfld ('FDS_toa_int09     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 09, toa',phys_decomp)
    call addfld ('FUSC_toa_int09     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 09, toa',phys_decomp)
    call addfld ('FDSC_toa_int09     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 09, toa',phys_decomp)

    call addfld ('FUS_int10     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 10',phys_decomp)
    call addfld ('FDS_int10     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 10',phys_decomp)
    call addfld ('FUSC_int10     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 10',phys_decomp)
    call addfld ('FDSC_int10     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 10',phys_decomp)
    call addfld ('FUS_toa_int10     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 10, toa',phys_decomp)
    call addfld ('FDS_toa_int10     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 10, toa',phys_decomp)
    call addfld ('FUSC_toa_int10     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 10, toa',phys_decomp)
    call addfld ('FDSC_toa_int10     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 10, toa',phys_decomp)

    call addfld ('FUS_int11     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 11',phys_decomp)
    call addfld ('FDS_int11     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 11',phys_decomp)
    call addfld ('FUSC_int11     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 11',phys_decomp)
    call addfld ('FDSC_int11     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 11',phys_decomp)
    call addfld ('FUS_toa_int11     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 11, toa',phys_decomp)
    call addfld ('FDS_toa_int11     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 11, toa',phys_decomp)
    call addfld ('FUSC_toa_int11     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 11, toa',phys_decomp)
    call addfld ('FDSC_toa_int11     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 11, toa',phys_decomp)

    call addfld ('FUS_int12     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 12',phys_decomp)
    call addfld ('FDS_int12     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 12',phys_decomp)
    call addfld ('FUSC_int12     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 12',phys_decomp)
    call addfld ('FDSC_int12     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 12',phys_decomp)
    call addfld ('FUS_toa_int12     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 12, toa',phys_decomp)
    call addfld ('FDS_toa_int12     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 12, toa',phys_decomp)
    call addfld ('FUSC_toa_int12     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 12, toa',phys_decomp)
    call addfld ('FDSC_toa_int12     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 12, toa',phys_decomp)

    call addfld ('FUS_int13     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 13',phys_decomp)
    call addfld ('FDS_int13     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 13',phys_decomp)
    call addfld ('FUSC_int13     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 13',phys_decomp)
    call addfld ('FDSC_int13     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 13',phys_decomp)
    call addfld ('FUS_toa_int13     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FDS_toa_int13     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FUSC_toa_int13     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FDSC_toa_int13     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 13, toa',phys_decomp)

    call addfld ('FUS_int14     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 14',phys_decomp)
    call addfld ('FDS_int14     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 14',phys_decomp)
    call addfld ('FUSC_int14     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 14',phys_decomp)
    call addfld ('FDSC_int14     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 14',phys_decomp)
    call addfld ('FUS_toa_int14     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 14, toa',phys_decomp)
    call addfld ('FDS_toa_int14     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 14, toa',phys_decomp)
    call addfld ('FUSC_toa_int14     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 14, toa',phys_decomp)
    call addfld ('FDSC_toa_int14     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 14, toa',phys_decomp)

    call addfld ('FUS_int15     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 15',phys_decomp)
    call addfld ('FDS_int15     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 15',phys_decomp)
    call addfld ('FUSC_int15     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 15',phys_decomp)
    call addfld ('FDSC_int15     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 15',phys_decomp)
    call addfld ('FUS_toa_int15     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 15, toa',phys_decomp)
    call addfld ('FDS_toa_int15     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 15, toa',phys_decomp)
    call addfld ('FUSC_toa_int15     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 15, toa',phys_decomp)
    call addfld ('FDSC_toa_int15     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 15, toa',phys_decomp)

    call addfld ('FUS_int16     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 16',phys_decomp)
    call addfld ('FDS_int16     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 16',phys_decomp)
    call addfld ('FUSC_int16     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 16',phys_decomp)
    call addfld ('FDSC_int16     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 16',phys_decomp)
    call addfld ('FUS_toa_int16     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 16, toa',phys_decomp)
    call addfld ('FDS_toa_int16     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 16, toa',phys_decomp)
    call addfld ('FUSC_toa_int16     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 16, toa',phys_decomp)
    call addfld ('FDSC_toa_int16     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 16, toa',phys_decomp)

    call addfld ('FUS_int17     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 17',phys_decomp)
    call addfld ('FDS_int17     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 17',phys_decomp)
    call addfld ('FUSC_int17     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 17',phys_decomp)
    call addfld ('FDSC_int17     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 17',phys_decomp)
    call addfld ('FUS_toa_int17     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 17, toa',phys_decomp)
    call addfld ('FDS_toa_int17     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 17, toa',phys_decomp)
    call addfld ('FUSC_toa_int17     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 17, toa',phys_decomp)
    call addfld ('FDSC_toa_int17     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 17, toa',phys_decomp)

    call addfld ('FUS_int18     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 18',phys_decomp)
    call addfld ('FDS_int18     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 18',phys_decomp)
    call addfld ('FUSC_int18     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 18',phys_decomp)
    call addfld ('FDSC_int18     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 18',phys_decomp)
    call addfld ('FUS_toa_int18     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 18, toa',phys_decomp)
    call addfld ('FDS_toa_int18     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 18, toa',phys_decomp)
    call addfld ('FUSC_toa_int18     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 18, toa',phys_decomp)
    call addfld ('FDSC_toa_int18     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 18, toa',phys_decomp)

    call addfld ('FUS_int19     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 19',phys_decomp)
    call addfld ('FDS_int19     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 19',phys_decomp)
    call addfld ('FUSC_int19     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 19',phys_decomp)
    call addfld ('FDSC_int19     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 19',phys_decomp)
    call addfld ('FUS_toa_int19     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 19, toa',phys_decomp)
    call addfld ('FDS_toa_int19     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 19, toa',phys_decomp)
    call addfld ('FUSC_toa_int19     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 19, toa',phys_decomp)
    call addfld ('FDSC_toa_int19     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 19, toa',phys_decomp)

    call addfld ('FUS_int20     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 20',phys_decomp)
    call addfld ('FDS_int20     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 20',phys_decomp)
    call addfld ('FUSC_int20     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 20',phys_decomp)
    call addfld ('FDSC_int20     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 20',phys_decomp)
    call addfld ('FUS_toa_int20     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 20, toa',phys_decomp)
    call addfld ('FDS_toa_int20     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 20, toa',phys_decomp)
    call addfld ('FUSC_toa_int20     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 20, toa',phys_decomp)
    call addfld ('FDSC_toa_int20     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 20, toa',phys_decomp)

    call addfld ('FUS_int21     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 21',phys_decomp)
    call addfld ('FDS_int21     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 21',phys_decomp)
    call addfld ('FUSC_int21     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 21',phys_decomp)
    call addfld ('FDSC_int21     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 21',phys_decomp)
    call addfld ('FUS_toa_int21     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 21, toa',phys_decomp)
    call addfld ('FDS_toa_int21     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 21, toa',phys_decomp)
    call addfld ('FUSC_toa_int21     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 21, toa',phys_decomp)
    call addfld ('FDSC_toa_int21     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 21, toa',phys_decomp)

    call addfld ('FUS_int22     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 22',phys_decomp)
    call addfld ('FDS_int22     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 22',phys_decomp)
    call addfld ('FUSC_int22     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 22',phys_decomp)
    call addfld ('FDSC_int22     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 22',phys_decomp)
    call addfld ('FUS_toa_int22     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 22, toa',phys_decomp)
    call addfld ('FDS_toa_int22     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 22, toa',phys_decomp)
    call addfld ('FUSC_toa_int22     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 22, toa',phys_decomp)
    call addfld ('FDSC_toa_int22     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 22, toa',phys_decomp)

    call addfld ('FUS_int23     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 23',phys_decomp)
    call addfld ('FDS_int23     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 23',phys_decomp)
    call addfld ('FUSC_int23     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 23',phys_decomp)
    call addfld ('FDSC_int23     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 23',phys_decomp)
    call addfld ('FUS_toa_int23     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 23, toa',phys_decomp)
    call addfld ('FDS_toa_int23     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 23, toa',phys_decomp)
    call addfld ('FUSC_toa_int23     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 23, toa',phys_decomp)
    call addfld ('FDSC_toa_int23     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 23, toa',phys_decomp)

    call addfld ('FUS_int24     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 24',phys_decomp)
    call addfld ('FDS_int24     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 24',phys_decomp)
    call addfld ('FUSC_int24     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 24',phys_decomp)
    call addfld ('FDSC_int24     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 24',phys_decomp)
    call addfld ('FUS_toa_int24     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 24, toa',phys_decomp)
    call addfld ('FDS_toa_int24     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 24, toa',phys_decomp)
    call addfld ('FUSC_toa_int24     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 24, toa',phys_decomp)
    call addfld ('FDSC_toa_int24     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 24, toa',phys_decomp)

    call addfld ('FUS_int25     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 25',phys_decomp)
    call addfld ('FDS_int25     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 25',phys_decomp)
    call addfld ('FUSC_int25     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 25',phys_decomp)
    call addfld ('FDSC_int25     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 25',phys_decomp)
    call addfld ('FUS_toa_int25     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 25, toa',phys_decomp)
    call addfld ('FDS_toa_int25     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 25, toa',phys_decomp)
    call addfld ('FUSC_toa_int25     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 25, toa',phys_decomp)
    call addfld ('FDSC_toa_int25     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 25, toa',phys_decomp)

    call addfld ('FUS_int26     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 26',phys_decomp)
    call addfld ('FDS_int26     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 26',phys_decomp)
    call addfld ('FUSC_int26     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 26',phys_decomp)
    call addfld ('FDSC_int26     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 26',phys_decomp)
    call addfld ('FUS_toa_int26     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 26, toa',phys_decomp)
    call addfld ('FDS_toa_int26     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 26, toa',phys_decomp)
    call addfld ('FUSC_toa_int26     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 26, toa',phys_decomp)
    call addfld ('FDSC_toa_int26     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 26, toa',phys_decomp)

    call addfld ('FUS_int27     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 27',phys_decomp)
    call addfld ('FDS_int27     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 27',phys_decomp)
    call addfld ('FUSC_int27     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 27',phys_decomp)
    call addfld ('FDSC_int27     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 27',phys_decomp)
    call addfld ('FUS_toa_int27     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 27, toa',phys_decomp)
    call addfld ('FDS_toa_int27     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 27, toa',phys_decomp)
    call addfld ('FUSC_toa_int27     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 27, toa',phys_decomp)
    call addfld ('FDSC_toa_int27     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 27, toa',phys_decomp)

    call addfld ('FUS_int28     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 28',phys_decomp)
    call addfld ('FDS_int28     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 28',phys_decomp)
    call addfld ('FUSC_int28     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 28',phys_decomp)
    call addfld ('FDSC_int28     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 28',phys_decomp)
    call addfld ('FUS_toa_int28     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 28, toa',phys_decomp)
    call addfld ('FDS_toa_int28     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 28, toa',phys_decomp)
    call addfld ('FUSC_toa_int28     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 28, toa',phys_decomp)
    call addfld ('FDSC_toa_int28     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 28, toa',phys_decomp)

    call addfld ('FUS_int29     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 29',phys_decomp)
    call addfld ('FDS_int29     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 29',phys_decomp)
    call addfld ('FUSC_int29     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 29',phys_decomp)
    call addfld ('FDSC_int29     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 29',phys_decomp)
    call addfld ('FUS_toa_int29     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 29, toa',phys_decomp)
    call addfld ('FDS_toa_int29     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 29, toa',phys_decomp)
    call addfld ('FUSC_toa_int29     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 29, toa',phys_decomp)
    call addfld ('FDSC_toa_int29     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 29, toa',phys_decomp)

    call addfld ('FUS_int30     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 30',phys_decomp)
    call addfld ('FDS_int30     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 30',phys_decomp)
    call addfld ('FUSC_int30     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 30',phys_decomp)
    call addfld ('FDSC_int30     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 30',phys_decomp)
    call addfld ('FUS_toa_int30     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 30, toa',phys_decomp)
    call addfld ('FDS_toa_int30     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 30, toa',phys_decomp)
    call addfld ('FUSC_toa_int30     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 30, toa',phys_decomp)
    call addfld ('FDSC_toa_int30     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 30, toa',phys_decomp)

    call addfld ('FUS_int31     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 31',phys_decomp)
    call addfld ('FDS_int31     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 31',phys_decomp)
    call addfld ('FUSC_int31     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 31',phys_decomp)
    call addfld ('FDSC_int31     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 31',phys_decomp)
    call addfld ('FUS_toa_int31     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 31, toa',phys_decomp)
    call addfld ('FDS_toa_int31     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 31, toa',phys_decomp)
    call addfld ('FUSC_toa_int31     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 31, toa',phys_decomp)
    call addfld ('FDSC_toa_int31     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 31, toa',phys_decomp)

    call addfld ('FUS_int32     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 32',phys_decomp)
    call addfld ('FDS_int32     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 32',phys_decomp)
    call addfld ('FUSC_int32     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 32',phys_decomp)
    call addfld ('FDSC_int32     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 32',phys_decomp)
    call addfld ('FUS_toa_int32     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 32, toa',phys_decomp)
    call addfld ('FDS_toa_int32     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 32, toa',phys_decomp)
    call addfld ('FUSC_toa_int32     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 32, toa',phys_decomp)
    call addfld ('FDSC_toa_int32     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 32, toa',phys_decomp)

    call addfld ('FUS_int33     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 33',phys_decomp)
    call addfld ('FDS_int33     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 33',phys_decomp)
    call addfld ('FUSC_int33     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 33',phys_decomp)
    call addfld ('FDSC_int33     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 33',phys_decomp)
    call addfld ('FUS_toa_int33     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 33, toa',phys_decomp)
    call addfld ('FDS_toa_int33     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 33, toa',phys_decomp)
    call addfld ('FUSC_toa_int33     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 33, toa',phys_decomp)
    call addfld ('FDSC_toa_int33     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 33, toa',phys_decomp)

    call addfld ('FUS_int34     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 34',phys_decomp)
    call addfld ('FDS_int34     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 34',phys_decomp)
    call addfld ('FUSC_int34     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 34',phys_decomp)
    call addfld ('FDSC_int34     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 34',phys_decomp)
    call addfld ('FUS_toa_int34     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 34, toa',phys_decomp)
    call addfld ('FDS_toa_int34     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 34, toa',phys_decomp)
    call addfld ('FUSC_toa_int34     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 34, toa',phys_decomp)
    call addfld ('FDSC_toa_int34     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 34, toa',phys_decomp)

    call addfld ('FUS_int35     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 35',phys_decomp)
    call addfld ('FDS_int35     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 35',phys_decomp)
    call addfld ('FUSC_int35     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 35',phys_decomp)
    call addfld ('FDSC_int35     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 35',phys_decomp)
    call addfld ('FUS_toa_int35     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 35, toa',phys_decomp)
    call addfld ('FDS_toa_int35     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 35, toa',phys_decomp)
    call addfld ('FUSC_toa_int35     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 35, toa',phys_decomp)
    call addfld ('FDSC_toa_int35     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 35, toa',phys_decomp)

    call addfld ('FUS_int36     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 36',phys_decomp)
    call addfld ('FDS_int36     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 36',phys_decomp)
    call addfld ('FUSC_int36     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 36',phys_decomp)
    call addfld ('FDSC_int36     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 36',phys_decomp)
    call addfld ('FUS_toa_int36     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 36, toa',phys_decomp)
    call addfld ('FDS_toa_int36     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 36, toa',phys_decomp)
    call addfld ('FUSC_toa_int36     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 36, toa',phys_decomp)
    call addfld ('FDSC_toa_int36     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 36, toa',phys_decomp)

    call addfld ('FUS_int37     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 37',phys_decomp)
    call addfld ('FDS_int37     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 37',phys_decomp)
    call addfld ('FUSC_int37     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 37',phys_decomp)
    call addfld ('FDSC_int37     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 37',phys_decomp)
    call addfld ('FUS_toa_int37     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 37, toa',phys_decomp)
    call addfld ('FDS_toa_int37     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 37, toa',phys_decomp)
    call addfld ('FUSC_toa_int37     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 37, toa',phys_decomp)
    call addfld ('FDSC_toa_int37     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 37, toa',phys_decomp)

    call addfld ('FUS_int38     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 38',phys_decomp)
    call addfld ('FDS_int38     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 38',phys_decomp)
    call addfld ('FUSC_int38     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 38',phys_decomp)
    call addfld ('FDSC_int38     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 38',phys_decomp)
    call addfld ('FUS_toa_int38     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 38, toa',phys_decomp)
    call addfld ('FDS_toa_int38     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 38, toa',phys_decomp)
    call addfld ('FUSC_toa_int38     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 38, toa',phys_decomp)
    call addfld ('FDSC_toa_int38     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 38, toa',phys_decomp)

    call addfld ('FUS_int39     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 39',phys_decomp)
    call addfld ('FDS_int39     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 39',phys_decomp)
    call addfld ('FUSC_int39     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 39',phys_decomp)
    call addfld ('FDSC_int39     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 39',phys_decomp)
    call addfld ('FUS_toa_int39     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 39, toa',phys_decomp)
    call addfld ('FDS_toa_int39     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 39, toa',phys_decomp)
    call addfld ('FUSC_toa_int39     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 39, toa',phys_decomp)
    call addfld ('FDSC_toa_int39     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 39, toa',phys_decomp)

    call addfld ('FUS_int40     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 40',phys_decomp)
    call addfld ('FDS_int40     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 40',phys_decomp)
    call addfld ('FUSC_int40     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 40',phys_decomp)
    call addfld ('FDSC_int40     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 40',phys_decomp)
    call addfld ('FUS_toa_int40     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 40, toa',phys_decomp)
    call addfld ('FDS_toa_int40     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 40, toa',phys_decomp)
    call addfld ('FUSC_toa_int40     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 40, toa',phys_decomp)
    call addfld ('FDSC_toa_int40     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 40, toa',phys_decomp)

    call addfld ('FUS_int41     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 41',phys_decomp)
    call addfld ('FDS_int41     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 41',phys_decomp)
    call addfld ('FUSC_int41     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 41',phys_decomp)
    call addfld ('FDSC_int41     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 41',phys_decomp)
    call addfld ('FUS_toa_int41     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 41, toa',phys_decomp)
    call addfld ('FDS_toa_int41     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 41, toa',phys_decomp)
    call addfld ('FUSC_toa_int41     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 41, toa',phys_decomp)
    call addfld ('FDSC_toa_int41     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 41, toa',phys_decomp)

    call addfld ('FUS_int42     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 42',phys_decomp)
    call addfld ('FDS_int42     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 42',phys_decomp)
    call addfld ('FUSC_int42     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 42',phys_decomp)
    call addfld ('FDSC_int42     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 42',phys_decomp)
    call addfld ('FUS_toa_int42     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 42, toa',phys_decomp)
    call addfld ('FDS_toa_int42     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 42, toa',phys_decomp)
    call addfld ('FUSC_toa_int42     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 42, toa',phys_decomp)
    call addfld ('FDSC_toa_int42     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 42, toa',phys_decomp)

    call addfld ('FUS_int43     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 43',phys_decomp)
    call addfld ('FDS_int43     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 43',phys_decomp)
    call addfld ('FUSC_int43     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 43',phys_decomp)
    call addfld ('FDSC_int43     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 43',phys_decomp)
    call addfld ('FUS_toa_int43     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 43, toa',phys_decomp)
    call addfld ('FDS_toa_int43     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 43, toa',phys_decomp)
    call addfld ('FUSC_toa_int43     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 43, toa',phys_decomp)
    call addfld ('FDSC_toa_int43     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 43, toa',phys_decomp)

    call addfld ('FUS_int44     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 44',phys_decomp)
    call addfld ('FDS_int44     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 44',phys_decomp)
    call addfld ('FUSC_int44     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 44',phys_decomp)
    call addfld ('FDSC_int44     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 44',phys_decomp)
    call addfld ('FUS_toa_int44     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 44, toa',phys_decomp)
    call addfld ('FDS_toa_int44     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 44, toa',phys_decomp)
    call addfld ('FUSC_toa_int44     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 44, toa',phys_decomp)
    call addfld ('FDSC_toa_int44     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 44, toa',phys_decomp)

    call addfld ('FUS_int45     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 45',phys_decomp)
    call addfld ('FDS_int45     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 45',phys_decomp)
    call addfld ('FUSC_int45     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 45',phys_decomp)
    call addfld ('FDSC_int45     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 45',phys_decomp)
    call addfld ('FUS_toa_int45     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 45, toa',phys_decomp)
    call addfld ('FDS_toa_int45     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 45, toa',phys_decomp)
    call addfld ('FUSC_toa_int45     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 45, toa',phys_decomp)
    call addfld ('FDSC_toa_int45     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 45, toa',phys_decomp)

    call addfld ('FUS_int46     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 46',phys_decomp)
    call addfld ('FDS_int46     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 46',phys_decomp)
    call addfld ('FUSC_int46     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 46',phys_decomp)
    call addfld ('FDSC_int46     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 46',phys_decomp)
    call addfld ('FUS_toa_int46     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 46, toa',phys_decomp)
    call addfld ('FDS_toa_int46     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 46, toa',phys_decomp)
    call addfld ('FUSC_toa_int46     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 46, toa',phys_decomp)
    call addfld ('FDSC_toa_int46     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 46, toa',phys_decomp)

    call addfld ('FUS_int47     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 47',phys_decomp)
    call addfld ('FDS_int47     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 47',phys_decomp)
    call addfld ('FUSC_int47     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 47',phys_decomp)
    call addfld ('FDSC_int47     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 47',phys_decomp)
    call addfld ('FUS_toa_int47     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 47, toa',phys_decomp)
    call addfld ('FDS_toa_int47     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 47, toa',phys_decomp)
    call addfld ('FUSC_toa_int47     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 47, toa',phys_decomp)
    call addfld ('FDSC_toa_int47     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 47, toa',phys_decomp)

    call addfld ('FUS_int48     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 48',phys_decomp)
    call addfld ('FDS_int48     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 48',phys_decomp)
    call addfld ('FUSC_int48     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 48',phys_decomp)
    call addfld ('FDSC_int48     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 48',phys_decomp)
    call addfld ('FUS_toa_int48     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FDS_toa_int48     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FUSC_toa_int48     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FDSC_toa_int48     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 48, toa',phys_decomp)

    call addfld ('FUS_int49     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 49',phys_decomp)
    call addfld ('FDS_int49     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 49',phys_decomp)
    call addfld ('FUSC_int49     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 49',phys_decomp)
    call addfld ('FDSC_int49     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 49',phys_decomp)
    call addfld ('FUS_toa_int49     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 49, toa',phys_decomp)
    call addfld ('FDS_toa_int49     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 49, toa',phys_decomp)
    call addfld ('FUSC_toa_int49     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 49, toa',phys_decomp)
    call addfld ('FDSC_toa_int49     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 49, toa',phys_decomp)

    call addfld ('FUS_int50     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 50',phys_decomp)
    call addfld ('FDS_int50     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 50',phys_decomp)
    call addfld ('FUSC_int50     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 50',phys_decomp)
    call addfld ('FDSC_int50     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 50',phys_decomp)
    call addfld ('FUS_toa_int50     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 50, toa',phys_decomp)
    call addfld ('FDS_toa_int50     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 50, toa',phys_decomp)
    call addfld ('FUSC_toa_int50     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 50, toa',phys_decomp)
    call addfld ('FDSC_toa_int50     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 50, toa',phys_decomp)

    call addfld ('FUS_int51     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 51',phys_decomp)
    call addfld ('FDS_int51     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 51',phys_decomp)
    call addfld ('FUSC_int51     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 51',phys_decomp)
    call addfld ('FDSC_int51     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 51',phys_decomp)
    call addfld ('FUS_toa_int51     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 51, toa',phys_decomp)
    call addfld ('FDS_toa_int51     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 51, toa',phys_decomp)
    call addfld ('FUSC_toa_int51     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 51, toa',phys_decomp)
    call addfld ('FDSC_toa_int51     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 51, toa',phys_decomp)

    call addfld ('FUS_int52     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 52',phys_decomp)
    call addfld ('FDS_int52     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 52',phys_decomp)
    call addfld ('FUSC_int52     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 52',phys_decomp)
    call addfld ('FDSC_int52     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 52',phys_decomp)
    call addfld ('FUS_toa_int52     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 52, toa',phys_decomp)
    call addfld ('FDS_toa_int52     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 52, toa',phys_decomp)
    call addfld ('FUSC_toa_int52     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 52, toa',phys_decomp)
    call addfld ('FDSC_toa_int52     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 52, toa',phys_decomp)

    call addfld ('FUS_int53     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 53',phys_decomp)
    call addfld ('FDS_int53     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 53',phys_decomp)
    call addfld ('FUSC_int53     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 53',phys_decomp)
    call addfld ('FDSC_int53     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 53',phys_decomp)
    call addfld ('FUS_toa_int53     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 53, toa',phys_decomp)
    call addfld ('FDS_toa_int53     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 53, toa',phys_decomp)
    call addfld ('FUSC_toa_int53     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 53, toa',phys_decomp)
    call addfld ('FDSC_toa_int53     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 53, toa',phys_decomp)

    call addfld ('FUS_int54     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 54',phys_decomp)
    call addfld ('FDS_int54     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 54',phys_decomp)
    call addfld ('FUSC_int54     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 54',phys_decomp)
    call addfld ('FDSC_int54     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 54',phys_decomp)
    call addfld ('FUS_toa_int54     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 54, toa',phys_decomp)
    call addfld ('FDS_toa_int54     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 54, toa',phys_decomp)
    call addfld ('FUSC_toa_int54     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 54, toa',phys_decomp)
    call addfld ('FDSC_toa_int54     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 54, toa',phys_decomp)

    call addfld ('FUS_int55     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 55',phys_decomp)
    call addfld ('FDS_int55     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 55',phys_decomp)
    call addfld ('FUSC_int55     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 55',phys_decomp)
    call addfld ('FDSC_int55     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 55',phys_decomp)
    call addfld ('FUS_toa_int55     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 55, toa',phys_decomp)
    call addfld ('FDS_toa_int55     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 55, toa',phys_decomp)
    call addfld ('FUSC_toa_int55     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 55, toa',phys_decomp)
    call addfld ('FDSC_toa_int55     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 55, toa',phys_decomp)

    call addfld ('FUS_int56     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 56',phys_decomp)
    call addfld ('FDS_int56     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 56',phys_decomp)
    call addfld ('FUSC_int56     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 56',phys_decomp)
    call addfld ('FDSC_int56     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 56',phys_decomp)
    call addfld ('FUS_toa_int56     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 56, toa',phys_decomp)
    call addfld ('FDS_toa_int56     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 56, toa',phys_decomp)
    call addfld ('FUSC_toa_int56     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 56, toa',phys_decomp)
    call addfld ('FDSC_toa_int56     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 56, toa',phys_decomp)

    call addfld ('FUS_int57     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 57',phys_decomp)
    call addfld ('FDS_int57     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 57',phys_decomp)
    call addfld ('FUSC_int57     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 57',phys_decomp)
    call addfld ('FDSC_int57     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 57',phys_decomp)
    call addfld ('FUS_toa_int57     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 57, toa',phys_decomp)
    call addfld ('FDS_toa_int57     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 57, toa',phys_decomp)
    call addfld ('FUSC_toa_int57     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 57, toa',phys_decomp)
    call addfld ('FDSC_toa_int57     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 57, toa',phys_decomp)

    call addfld ('FUS_int58     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 58',phys_decomp)
    call addfld ('FDS_int58     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 58',phys_decomp)
    call addfld ('FUSC_int58     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 58',phys_decomp)
    call addfld ('FDSC_int58     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 58',phys_decomp)
    call addfld ('FUS_toa_int58     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 58, toa',phys_decomp)
    call addfld ('FDS_toa_int58     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 58, toa',phys_decomp)
    call addfld ('FUSC_toa_int58     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 58, toa',phys_decomp)
    call addfld ('FDSC_toa_int58     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 58, toa',phys_decomp)

    call addfld ('FUS_int59     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 59',phys_decomp)
    call addfld ('FDS_int59     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 59',phys_decomp)
    call addfld ('FUSC_int59     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 59',phys_decomp)
    call addfld ('FDSC_int59     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 59',phys_decomp)
    call addfld ('FUS_toa_int59     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 59, toa',phys_decomp)
    call addfld ('FDS_toa_int59     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 59, toa',phys_decomp)
    call addfld ('FUSC_toa_int59     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 59, toa',phys_decomp)
    call addfld ('FDSC_toa_int59     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 59, toa',phys_decomp)

    call addfld ('FUS_int60     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 60',phys_decomp)
    call addfld ('FDS_int60     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 60',phys_decomp)
    call addfld ('FUSC_int60     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 60',phys_decomp)
    call addfld ('FDSC_int60     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 60',phys_decomp)
    call addfld ('FUS_toa_int60     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 60, toa',phys_decomp)
    call addfld ('FDS_toa_int60     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 60, toa',phys_decomp)
    call addfld ('FUSC_toa_int60     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 60, toa',phys_decomp)
    call addfld ('FDSC_toa_int60     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 60, toa',phys_decomp)

    call addfld ('FUS_int61     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 61',phys_decomp)
    call addfld ('FDS_int61     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 61',phys_decomp)
    call addfld ('FUSC_int61     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 61',phys_decomp)
    call addfld ('FDSC_int61     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 61',phys_decomp)
    call addfld ('FUS_toa_int61     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 61, toa',phys_decomp)
    call addfld ('FDS_toa_int61     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 61, toa',phys_decomp)
    call addfld ('FUSC_toa_int61     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 61, toa',phys_decomp)
    call addfld ('FDSC_toa_int61     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 61, toa',phys_decomp)

    call addfld ('FUS_int62     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 62',phys_decomp)
    call addfld ('FDS_int62     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 62',phys_decomp)
    call addfld ('FUSC_int62     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 62',phys_decomp)
    call addfld ('FDSC_int62     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 62',phys_decomp)
    call addfld ('FUS_toa_int62     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 62, toa',phys_decomp)
    call addfld ('FDS_toa_int62     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 62, toa',phys_decomp)
    call addfld ('FUSC_toa_int62     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 62, toa',phys_decomp)
    call addfld ('FDSC_toa_int62     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 62, toa',phys_decomp)

    call addfld ('FUS_int63     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 63',phys_decomp)
    call addfld ('FDS_int63     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 63',phys_decomp)
    call addfld ('FUSC_int63     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 63',phys_decomp)
    call addfld ('FDSC_int63     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 63',phys_decomp)
    call addfld ('FUS_toa_int63     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 63, toa',phys_decomp)
    call addfld ('FDS_toa_int63     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 63, toa',phys_decomp)
    call addfld ('FUSC_toa_int63     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 63, toa',phys_decomp)
    call addfld ('FDSC_toa_int63     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 63, toa',phys_decomp)

    call addfld ('FUS_int64     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 64',phys_decomp)
    call addfld ('FDS_int64     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 64',phys_decomp)
    call addfld ('FUSC_int64     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 64',phys_decomp)
    call addfld ('FDSC_int64     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 64',phys_decomp)
    call addfld ('FUS_toa_int64     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 64, toa',phys_decomp)
    call addfld ('FDS_toa_int64     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 64, toa',phys_decomp)
    call addfld ('FUSC_toa_int64     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 64, toa',phys_decomp)
    call addfld ('FDSC_toa_int64     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 64, toa',phys_decomp)

    call addfld ('FUS_int65     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 65',phys_decomp)
    call addfld ('FDS_int65     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 65',phys_decomp)
    call addfld ('FUSC_int65     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 65',phys_decomp)
    call addfld ('FDSC_int65     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 65',phys_decomp)
    call addfld ('FUS_toa_int65     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FDS_toa_int65     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FUSC_toa_int65     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FDSC_toa_int65     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 65, toa',phys_decomp)

    call addfld ('FUS_int66     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 66',phys_decomp)
    call addfld ('FDS_int66     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 66',phys_decomp)
    call addfld ('FUSC_int66     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 66',phys_decomp)
    call addfld ('FDSC_int66     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 66',phys_decomp)
    call addfld ('FUS_toa_int66     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FDS_toa_int66     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FUSC_toa_int66     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 66, toa',phys_decomp)
    call addfld ('FDSC_toa_int66     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 66, toa',phys_decomp)

    call addfld ('FUS_int67     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 67',phys_decomp)
    call addfld ('FDS_int67     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 67',phys_decomp)
    call addfld ('FUSC_int67     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 67',phys_decomp)
    call addfld ('FDSC_int67     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 67',phys_decomp)
    call addfld ('FUS_toa_int67     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 67, toa',phys_decomp)
    call addfld ('FDS_toa_int67     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 67, toa',phys_decomp)
    call addfld ('FUSC_toa_int67     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 67, toa',phys_decomp)
    call addfld ('FDSC_toa_int67     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 67, toa',phys_decomp)

    call addfld ('FUS_int68     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 68',phys_decomp)
    call addfld ('FDS_int68     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 68',phys_decomp)
    call addfld ('FUSC_int68     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 68',phys_decomp)
    call addfld ('FDSC_int68     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 68',phys_decomp)
    call addfld ('FUS_toa_int68     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 68, toa',phys_decomp)
    call addfld ('FDS_toa_int68     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 68, toa',phys_decomp)
    call addfld ('FUSC_toa_int68     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 68, toa',phys_decomp)
    call addfld ('FDSC_toa_int68     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 68, toa',phys_decomp)

    call addfld ('FUS_int69     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 69',phys_decomp)
    call addfld ('FDS_int69     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 69',phys_decomp)
    call addfld ('FUSC_int69     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 69',phys_decomp)
    call addfld ('FDSC_int69     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 69',phys_decomp)
    call addfld ('FUS_toa_int69     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 69, toa',phys_decomp)
    call addfld ('FDS_toa_int69     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 69, toa',phys_decomp)
    call addfld ('FUSC_toa_int69     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 69, toa',phys_decomp)
    call addfld ('FDSC_toa_int69     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 69, toa',phys_decomp)

    call addfld ('FUS_int70     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 70',phys_decomp)
    call addfld ('FDS_int70     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 70',phys_decomp)
    call addfld ('FUSC_int70     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 70',phys_decomp)
    call addfld ('FDSC_int70     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 70',phys_decomp)
    call addfld ('FUS_toa_int70     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 70, toa',phys_decomp)
    call addfld ('FDS_toa_int70     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 70, toa',phys_decomp)
    call addfld ('FUSC_toa_int70     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 70, toa',phys_decomp)
    call addfld ('FDSC_toa_int70     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 70, toa',phys_decomp)

    call addfld ('FUS_int71     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 71',phys_decomp)
    call addfld ('FDS_int71     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 71',phys_decomp)
    call addfld ('FUSC_int71     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 71',phys_decomp)
    call addfld ('FDSC_int71     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 71',phys_decomp)
    call addfld ('FUS_toa_int71     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 71, toa',phys_decomp)
    call addfld ('FDS_toa_int71     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 71, toa',phys_decomp)
    call addfld ('FUSC_toa_int71     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 71, toa',phys_decomp)
    call addfld ('FDSC_toa_int71     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 71, toa',phys_decomp)

    call addfld ('FUS_int72     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 72',phys_decomp)
    call addfld ('FDS_int72     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 72',phys_decomp)
    call addfld ('FUSC_int72     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 72',phys_decomp)
    call addfld ('FDSC_int72     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 72',phys_decomp)
    call addfld ('FUS_toa_int72     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 72, toa',phys_decomp)
    call addfld ('FDS_toa_int72     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 72, toa',phys_decomp)
    call addfld ('FUSC_toa_int72     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 72, toa',phys_decomp)
    call addfld ('FDSC_toa_int72     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 72, toa',phys_decomp)

    call addfld ('FUS_int73     ','W/m2    ',pverp,'A','Shortwave upward flux, spectral interval 73',phys_decomp)
    call addfld ('FDS_int73     ','W/m2    ',pverp,'A','Shortwave downward flux, spectral interval 73',phys_decomp)
    call addfld ('FUSC_int73     ','W/m2    ',pverp,'A','Shortwave clear-sky upward flux, spectral interval 73',phys_decomp)
    call addfld ('FDSC_int73     ','W/m2    ',pverp,'A','Shortwave clear-sky downward flux, spectral interval 73',phys_decomp)
    call addfld ('FUS_toa_int73     ','W/m2    ',1,'A','Shortwave upward flux, spectral interval 73, toa',phys_decomp)
    call addfld ('FDS_toa_int73     ','W/m2    ',1,'A','Shortwave downward flux, spectral interval 73, toa',phys_decomp)
    call addfld ('FUSC_toa_int73     ','W/m2    ',1,'A','Shortwave clear-sky upward flux, spectral interval 73, toa',phys_decomp)
    call addfld ('FDSC_toa_int73     ','W/m2    ',1,'A','Shortwave clear-sky downward flux, spectral interval 73, toa',phys_decomp)


    ! long wave fields
    call addfld ('FUL_int01     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 01',phys_decomp)
    call addfld ('FDL_int01     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 01',phys_decomp)
    call addfld ('FULC_int01    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 01',phys_decomp)
    call addfld ('FDLC_int01    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 01',phys_decomp)
    call addfld ('FUL_toa_int01     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 01, toa',phys_decomp)
    call addfld ('FDL_toa_int01     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 01, toa',phys_decomp)
    call addfld ('FULC_toa_int01    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 01, toa',phys_decomp)
    call addfld ('FDLC_toa_int01    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 01, toa',phys_decomp)

    call addfld ('FUL_int02     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 02',phys_decomp)
    call addfld ('FDL_int02     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 02',phys_decomp)
    call addfld ('FULC_int02    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 02',phys_decomp)
    call addfld ('FDLC_int02    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 02',phys_decomp)
    call addfld ('FUL_toa_int02     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 02, toa',phys_decomp)
    call addfld ('FDL_toa_int02     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 02, toa',phys_decomp)
    call addfld ('FULC_toa_int02    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 02, toa',phys_decomp)
    call addfld ('FDLC_toa_int02    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 02, toa',phys_decomp)

    call addfld ('FUL_int03     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 03',phys_decomp)
    call addfld ('FDL_int03     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 03',phys_decomp)
    call addfld ('FULC_int03    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 03',phys_decomp)
    call addfld ('FDLC_int03    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 03',phys_decomp)
    call addfld ('FUL_toa_int03     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 03, toa',phys_decomp)
    call addfld ('FDL_toa_int03     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 03, toa',phys_decomp)
    call addfld ('FULC_toa_int03    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 03, toa',phys_decomp)
    call addfld ('FDLC_toa_int03    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 03, toa',phys_decomp)

    call addfld ('FUL_int04     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 04',phys_decomp)
    call addfld ('FDL_int04     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 04',phys_decomp)
    call addfld ('FULC_int04    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 04',phys_decomp)
    call addfld ('FDLC_int04    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 04',phys_decomp)
    call addfld ('FUL_toa_int04     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 04, toa',phys_decomp)
    call addfld ('FDL_toa_int04     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 04, toa',phys_decomp)
    call addfld ('FULC_toa_int04    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 04, toa',phys_decomp)
    call addfld ('FDLC_toa_int04    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 04, toa',phys_decomp)

    call addfld ('FUL_int05     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 05',phys_decomp)
    call addfld ('FDL_int05     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 05',phys_decomp)
    call addfld ('FULC_int05    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 05',phys_decomp)
    call addfld ('FDLC_int05    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 05',phys_decomp)
    call addfld ('FUL_toa_int05     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 05, toa',phys_decomp)
    call addfld ('FDL_toa_int05     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 05, toa',phys_decomp)
    call addfld ('FULC_toa_int05    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 05, toa',phys_decomp)
    call addfld ('FDLC_toa_int05    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 05, toa',phys_decomp)

    call addfld ('FUL_int06     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 06',phys_decomp)
    call addfld ('FDL_int06     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 06',phys_decomp)
    call addfld ('FULC_int06    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 06',phys_decomp)
    call addfld ('FDLC_int06    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 06',phys_decomp)
    call addfld ('FUL_toa_int06     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 06, toa',phys_decomp)
    call addfld ('FDL_toa_int06     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 06, toa',phys_decomp)
    call addfld ('FULC_toa_int06    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 06, toa',phys_decomp)
    call addfld ('FDLC_toa_int06    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 06, toa',phys_decomp)

    call addfld ('FUL_int07     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 07',phys_decomp)
    call addfld ('FDL_int07     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 07',phys_decomp)
    call addfld ('FULC_int07    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 07',phys_decomp)
    call addfld ('FDLC_int07    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 07',phys_decomp)
    call addfld ('FUL_toa_int07     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 07, toa',phys_decomp)
    call addfld ('FDL_toa_int07     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 07, toa',phys_decomp)
    call addfld ('FULC_toa_int07    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 07, toa',phys_decomp)
    call addfld ('FDLC_toa_int07    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 07, toa',phys_decomp)

    call addfld ('FUL_int08     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 08',phys_decomp)
    call addfld ('FDL_int08     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 08',phys_decomp)
    call addfld ('FULC_int08    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 08',phys_decomp)
    call addfld ('FDLC_int08    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 08',phys_decomp)
    call addfld ('FUL_toa_int08     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 08, toa',phys_decomp)
    call addfld ('FDL_toa_int08     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 08, toa',phys_decomp)
    call addfld ('FULC_toa_int08    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 08, toa',phys_decomp)
    call addfld ('FDLC_toa_int08    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 08, toa',phys_decomp)

    call addfld ('FUL_int09     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 09',phys_decomp)
    call addfld ('FDL_int09     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 09',phys_decomp)
    call addfld ('FULC_int09    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 09',phys_decomp)
    call addfld ('FDLC_int09    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 09',phys_decomp)
    call addfld ('FUL_toa_int09     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 09, toa',phys_decomp)
    call addfld ('FDL_toa_int09     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 09, toa',phys_decomp)
    call addfld ('FULC_toa_int09    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 09, toa',phys_decomp)
    call addfld ('FDLC_toa_int09    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 09, toa',phys_decomp)

    call addfld ('FUL_int10     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 10',phys_decomp)
    call addfld ('FDL_int10     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 10',phys_decomp)
    call addfld ('FULC_int10    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 10',phys_decomp)
    call addfld ('FDLC_int10    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 10',phys_decomp)
    call addfld ('FUL_toa_int10     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 10, toa',phys_decomp)
    call addfld ('FDL_toa_int10     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 10, toa',phys_decomp)
    call addfld ('FULC_toa_int10    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 10, toa',phys_decomp)
    call addfld ('FDLC_toa_int10    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 10, toa',phys_decomp)

    call addfld ('FUL_int11     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 11',phys_decomp)
    call addfld ('FDL_int11     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 11',phys_decomp)
    call addfld ('FULC_int11    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 11',phys_decomp)
    call addfld ('FDLC_int11    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 11',phys_decomp)
    call addfld ('FUL_toa_int11     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 11, toa',phys_decomp)
    call addfld ('FDL_toa_int11     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 11, toa',phys_decomp)
    call addfld ('FULC_toa_int11    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 11, toa',phys_decomp)
    call addfld ('FDLC_toa_int11    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 11, toa',phys_decomp)

    call addfld ('FUL_int12     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 12',phys_decomp)
    call addfld ('FDL_int12     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 12',phys_decomp)
    call addfld ('FULC_int12    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 12',phys_decomp)
    call addfld ('FDLC_int12    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 12',phys_decomp)
    call addfld ('FUL_toa_int12     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 12, toa',phys_decomp)
    call addfld ('FDL_toa_int12     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 12, toa',phys_decomp)
    call addfld ('FULC_toa_int12    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 12, toa',phys_decomp)
    call addfld ('FDLC_toa_int12    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 12, toa',phys_decomp)

    call addfld ('FUL_int13     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 13',phys_decomp)
    call addfld ('FDL_int13     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 13',phys_decomp)
    call addfld ('FULC_int13    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 13',phys_decomp)
    call addfld ('FDLC_int13    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 13',phys_decomp)
    call addfld ('FUL_toa_int13     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FDL_toa_int13     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FULC_toa_int13    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FDLC_toa_int13    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 13, toa',phys_decomp)

    call addfld ('FUL_int14     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 14',phys_decomp)
    call addfld ('FDL_int14     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 14',phys_decomp)
    call addfld ('FULC_int14    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 14',phys_decomp)
    call addfld ('FDLC_int14    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 14',phys_decomp)
    call addfld ('FUL_toa_int14     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FDL_toa_int14     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FULC_toa_int14    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 13, toa',phys_decomp)
    call addfld ('FDLC_toa_int14    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 13, toa',phys_decomp)

    call addfld ('FUL_int15     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 15',phys_decomp)
    call addfld ('FDL_int15     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 15',phys_decomp)
    call addfld ('FULC_int15    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 15',phys_decomp)
    call addfld ('FDLC_int15    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 15',phys_decomp)
    call addfld ('FUL_toa_int15     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 15, toa',phys_decomp)
    call addfld ('FDL_toa_int15     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 15, toa',phys_decomp)
    call addfld ('FULC_toa_int15    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 15, toa',phys_decomp)
    call addfld ('FDLC_toa_int15    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 15, toa',phys_decomp)

    call addfld ('FUL_int16     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 16',phys_decomp)
    call addfld ('FDL_int16     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 16',phys_decomp)
    call addfld ('FULC_int16    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 16',phys_decomp)
    call addfld ('FDLC_int16    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 16',phys_decomp)
    call addfld ('FUL_toa_int16     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 16, toa',phys_decomp)
    call addfld ('FDL_toa_int16     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 16, toa',phys_decomp)
    call addfld ('FULC_toa_int16    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 16, toa',phys_decomp)
    call addfld ('FDLC_toa_int16    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 16, toa',phys_decomp)

    call addfld ('FUL_int17     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 17',phys_decomp)
    call addfld ('FDL_int17     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 17',phys_decomp)
    call addfld ('FULC_int17    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 17',phys_decomp)
    call addfld ('FDLC_int17    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 17',phys_decomp)
    call addfld ('FUL_toa_int17     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 17, toa',phys_decomp)
    call addfld ('FDL_toa_int17     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 17, toa',phys_decomp)
    call addfld ('FULC_toa_int17    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 17, toa',phys_decomp)
    call addfld ('FDLC_toa_int17    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 17, toa',phys_decomp)

    call addfld ('FUL_int18     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 18',phys_decomp)
    call addfld ('FDL_int18     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 18',phys_decomp)
    call addfld ('FULC_int18    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 18',phys_decomp)
    call addfld ('FDLC_int18    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 18',phys_decomp)
    call addfld ('FUL_toa_int18     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 18, toa',phys_decomp)
    call addfld ('FDL_toa_int18     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 18, toa',phys_decomp)
    call addfld ('FULC_toa_int18    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 18, toa',phys_decomp)
    call addfld ('FDLC_toa_int18    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 18, toa',phys_decomp)

    call addfld ('FUL_int19     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 19',phys_decomp)
    call addfld ('FDL_int19     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 19',phys_decomp)
    call addfld ('FULC_int19    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 19',phys_decomp)
    call addfld ('FDLC_int19    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 19',phys_decomp)
    call addfld ('FUL_toa_int19     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 19, toa',phys_decomp)
    call addfld ('FDL_toa_int19     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 19, toa',phys_decomp)
    call addfld ('FULC_toa_int19    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 19, toa',phys_decomp)
    call addfld ('FDLC_toa_int19    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 19, toa',phys_decomp)

    call addfld ('FUL_int20     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 20',phys_decomp)
    call addfld ('FDL_int20     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 20',phys_decomp)
    call addfld ('FULC_int20    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 20',phys_decomp)
    call addfld ('FDLC_int20    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 20',phys_decomp)
    call addfld ('FUL_toa_int20     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 20, toa',phys_decomp)
    call addfld ('FDL_toa_int20     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 20, toa',phys_decomp)
    call addfld ('FULC_toa_int20    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 20, toa',phys_decomp)
    call addfld ('FDLC_toa_int20    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 20, toa',phys_decomp)

    call addfld ('FUL_int21     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 21',phys_decomp)
    call addfld ('FDL_int21     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 21',phys_decomp)
    call addfld ('FULC_int21    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 21',phys_decomp)
    call addfld ('FDLC_int21    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 21',phys_decomp)
    call addfld ('FUL_toa_int21     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 21, toa',phys_decomp)
    call addfld ('FDL_toa_int21     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 21, toa',phys_decomp)
    call addfld ('FULC_toa_int21    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 21, toa',phys_decomp)
    call addfld ('FDLC_toa_int21    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 21, toa',phys_decomp)

    call addfld ('FUL_int22     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 22',phys_decomp)
    call addfld ('FDL_int22     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 22',phys_decomp)
    call addfld ('FULC_int22    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 22',phys_decomp)
    call addfld ('FDLC_int22    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 22',phys_decomp)
    call addfld ('FUL_toa_int22     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 22, toa',phys_decomp)
    call addfld ('FDL_toa_int22     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 22, toa',phys_decomp)
    call addfld ('FULC_toa_int22    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 22, toa',phys_decomp)
    call addfld ('FDLC_toa_int22    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 22 toa',phys_decomp)

    call addfld ('FUL_int23     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 23',phys_decomp)
    call addfld ('FDL_int23     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 23',phys_decomp)
    call addfld ('FULC_int23    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 23',phys_decomp)
    call addfld ('FDLC_int23    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 23',phys_decomp)
    call addfld ('FUL_toa_int23     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 23, toa',phys_decomp)
    call addfld ('FDL_toa_int23     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 23, toa',phys_decomp)
    call addfld ('FULC_toa_int23    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 23, toa',phys_decomp)
    call addfld ('FDLC_toa_int23    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 23, toa',phys_decomp)

    call addfld ('FUL_int24     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 24',phys_decomp)
    call addfld ('FDL_int24     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 24',phys_decomp)
    call addfld ('FULC_int24    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 24',phys_decomp)
    call addfld ('FDLC_int24    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 24',phys_decomp)
    call addfld ('FUL_toa_int24     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 24, toa',phys_decomp)
    call addfld ('FDL_toa_int24     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 24, toa',phys_decomp)
    call addfld ('FULC_toa_int24    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 24, toa',phys_decomp)
    call addfld ('FDLC_toa_int24    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 24, toa',phys_decomp)

    call addfld ('FUL_int25     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 25',phys_decomp)
    call addfld ('FDL_int25     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 25',phys_decomp)
    call addfld ('FULC_int25    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 25',phys_decomp)
    call addfld ('FDLC_int25    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 25',phys_decomp)
    call addfld ('FUL_toa_int25     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 25, toa',phys_decomp)
    call addfld ('FDL_toa_int25     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 25, toa',phys_decomp)
    call addfld ('FULC_toa_int25    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 25, toa',phys_decomp)
    call addfld ('FDLC_toa_int25    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 25, toa',phys_decomp)

    call addfld ('FUL_int26     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 26',phys_decomp)
    call addfld ('FDL_int26     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 26',phys_decomp)
    call addfld ('FULC_int26    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 26',phys_decomp)
    call addfld ('FDLC_int26    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 26',phys_decomp)
    call addfld ('FUL_toa_int26     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 26, toa',phys_decomp)
    call addfld ('FDL_toa_int26     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 26, toa',phys_decomp)
    call addfld ('FULC_toa_int26    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 26, toa',phys_decomp)
    call addfld ('FDLC_toa_int26    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 26, toa',phys_decomp)

    call addfld ('FUL_int27     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 27',phys_decomp)
    call addfld ('FDL_int27     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 27',phys_decomp)
    call addfld ('FULC_int27    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 27',phys_decomp)
    call addfld ('FDLC_int27    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 27',phys_decomp)
    call addfld ('FUL_toa_int27     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 27, toa',phys_decomp)
    call addfld ('FDL_toa_int27     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 27, toa',phys_decomp)
    call addfld ('FULC_toa_int27    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 27, toa',phys_decomp)
    call addfld ('FDLC_toa_int27    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 27, toa',phys_decomp)

    call addfld ('FUL_int28     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 28',phys_decomp)
    call addfld ('FDL_int28     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 28',phys_decomp)
    call addfld ('FULC_int28    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 28',phys_decomp)
    call addfld ('FDLC_int28    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 28',phys_decomp)
    call addfld ('FUL_toa_int28     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 28, toa',phys_decomp)
    call addfld ('FDL_toa_int28     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 28, toa',phys_decomp)
    call addfld ('FULC_toa_int28    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 28, toa',phys_decomp)
    call addfld ('FDLC_toa_int28    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 28, toa',phys_decomp)

    call addfld ('FUL_int29     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 29',phys_decomp)
    call addfld ('FDL_int29     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 29',phys_decomp)
    call addfld ('FULC_int29    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 29',phys_decomp)
    call addfld ('FDLC_int29    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 29',phys_decomp)
    call addfld ('FUL_toa_int29     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 29, toa',phys_decomp)
    call addfld ('FDL_toa_int29     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 29, toa',phys_decomp)
    call addfld ('FULC_toa_int29    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 29, toa',phys_decomp)
    call addfld ('FDLC_toa_int29    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 29, toa',phys_decomp)

    call addfld ('FUL_int30     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 30',phys_decomp)
    call addfld ('FDL_int30     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 30',phys_decomp)
    call addfld ('FULC_int30    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 30',phys_decomp)
    call addfld ('FDLC_int30    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 30',phys_decomp)
    call addfld ('FUL_toa_int30     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 30, toa',phys_decomp)
    call addfld ('FDL_toa_int30     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 30, toa',phys_decomp)
    call addfld ('FULC_toa_int30    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 30, toa',phys_decomp)
    call addfld ('FDLC_toa_int30    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 30, toa',phys_decomp)

    call addfld ('FUL_int31     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 31',phys_decomp)
    call addfld ('FDL_int31     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 31',phys_decomp)
    call addfld ('FULC_int31    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 31',phys_decomp)
    call addfld ('FDLC_int31    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 31',phys_decomp)
    call addfld ('FUL_toa_int31     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 31, toa',phys_decomp)
    call addfld ('FDL_toa_int31     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 31, toa',phys_decomp)
    call addfld ('FULC_toa_int31    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 31, toa',phys_decomp)
    call addfld ('FDLC_toa_int31    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 31, toa',phys_decomp)

    call addfld ('FUL_int32     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 32',phys_decomp)
    call addfld ('FDL_int32     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 32',phys_decomp)
    call addfld ('FULC_int32    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 32',phys_decomp)
    call addfld ('FDLC_int32    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 32',phys_decomp)
    call addfld ('FUL_toa_int32     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 32, toa',phys_decomp)
    call addfld ('FDL_toa_int32     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 32, toa',phys_decomp)
    call addfld ('FULC_toa_int32    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 32, toa',phys_decomp)
    call addfld ('FDLC_toa_int32    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 32, toa',phys_decomp)

    call addfld ('FUL_int33     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 33',phys_decomp)
    call addfld ('FDL_int33     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 33',phys_decomp)
    call addfld ('FULC_int33    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 33',phys_decomp)
    call addfld ('FDLC_int33    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 33',phys_decomp)
    call addfld ('FUL_toa_int33     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 33, toa',phys_decomp)
    call addfld ('FDL_toa_int33     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 33, toa',phys_decomp)
    call addfld ('FULC_toa_int33    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 33, toa',phys_decomp)
    call addfld ('FDLC_toa_int33    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 33, toa',phys_decomp)

    call addfld ('FUL_int34     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 34',phys_decomp)
    call addfld ('FDL_int34     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 34',phys_decomp)
    call addfld ('FULC_int34    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 34',phys_decomp)
    call addfld ('FDLC_int34    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 34',phys_decomp)
    call addfld ('FUL_toa_int34     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 34, toa',phys_decomp)
    call addfld ('FDL_toa_int34     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 34, toa',phys_decomp)
    call addfld ('FULC_toa_int34    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 34, toa',phys_decomp)
    call addfld ('FDLC_toa_int34    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 34, toa',phys_decomp)

    call addfld ('FUL_int35     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 35',phys_decomp)
    call addfld ('FDL_int35     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 35',phys_decomp)
    call addfld ('FULC_int35    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 35',phys_decomp)
    call addfld ('FDLC_int35    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 35',phys_decomp)
    call addfld ('FUL_toa_int35     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 35, toa',phys_decomp)
    call addfld ('FDL_toa_int35     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 35, toa',phys_decomp)
    call addfld ('FULC_toa_int35    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 35, toa',phys_decomp)
    call addfld ('FDLC_toa_int35    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 35, toa',phys_decomp)

    call addfld ('FUL_int36     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 36',phys_decomp)
    call addfld ('FDL_int36     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 36',phys_decomp)
    call addfld ('FULC_int36    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 36',phys_decomp)
    call addfld ('FDLC_int36    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 36',phys_decomp)
    call addfld ('FUL_toa_int36     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 36, toa',phys_decomp)
    call addfld ('FDL_toa_int36     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 36, toa',phys_decomp)
    call addfld ('FULC_toa_int36    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 36, toa',phys_decomp)
    call addfld ('FDLC_toa_int36    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 36, toa',phys_decomp)

    call addfld ('FUL_int37     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 37',phys_decomp)
    call addfld ('FDL_int37     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 37',phys_decomp)
    call addfld ('FULC_int37    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 37',phys_decomp)
    call addfld ('FDLC_int37    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 37',phys_decomp)
    call addfld ('FUL_toa_int37     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 37, toa',phys_decomp)
    call addfld ('FDL_toa_int37     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 37, toa',phys_decomp)
    call addfld ('FULC_toa_int37    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 37, toa',phys_decomp)
    call addfld ('FDLC_toa_int37    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 37, toa',phys_decomp)

    call addfld ('FUL_int38     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 38',phys_decomp)
    call addfld ('FDL_int38     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 38',phys_decomp)
    call addfld ('FULC_int38    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 38',phys_decomp)
    call addfld ('FDLC_int38    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 38',phys_decomp)
    call addfld ('FUL_toa_int38     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 38, toa',phys_decomp)
    call addfld ('FDL_toa_int38     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 38, toa',phys_decomp)
    call addfld ('FULC_toa_int38    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 38, toa',phys_decomp)
    call addfld ('FDLC_toa_int38    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 38, toa',phys_decomp)

    call addfld ('FUL_int39     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 39',phys_decomp)
    call addfld ('FDL_int39     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 39',phys_decomp)
    call addfld ('FULC_int39    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 39',phys_decomp)
    call addfld ('FDLC_int39    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 39',phys_decomp)
    call addfld ('FUL_toa_int39     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 39, toa',phys_decomp)
    call addfld ('FDL_toa_int39     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 39, toa',phys_decomp)
    call addfld ('FULC_toa_int39    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 39, toa',phys_decomp)
    call addfld ('FDLC_toa_int39    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 39, toa',phys_decomp)

    call addfld ('FUL_int40     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 40',phys_decomp)
    call addfld ('FDL_int40     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 40',phys_decomp)
    call addfld ('FULC_int40    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 40',phys_decomp)
    call addfld ('FDLC_int40    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 40',phys_decomp)
    call addfld ('FUL_toa_int40     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 40, toa',phys_decomp)
    call addfld ('FDL_toa_int40     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 40, toa',phys_decomp)
    call addfld ('FULC_toa_int40    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 40, toa',phys_decomp)
    call addfld ('FDLC_toa_int40    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 40, toa',phys_decomp)

    call addfld ('FUL_int41     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 41',phys_decomp)
    call addfld ('FDL_int41     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 41',phys_decomp)
    call addfld ('FULC_int41    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 41',phys_decomp)
    call addfld ('FDLC_int41    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 41',phys_decomp)
    call addfld ('FUL_toa_int41     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 41, toa',phys_decomp)
    call addfld ('FDL_toa_int41     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 41, toa',phys_decomp)
    call addfld ('FULC_toa_int41    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 41, toa',phys_decomp)
    call addfld ('FDLC_toa_int41    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 41, toa',phys_decomp)

    call addfld ('FUL_int42     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 42',phys_decomp)
    call addfld ('FDL_int42     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 42',phys_decomp)
    call addfld ('FULC_int42    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 42',phys_decomp)
    call addfld ('FDLC_int42    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 42',phys_decomp)
    call addfld ('FUL_toa_int42     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 42, toa',phys_decomp)
    call addfld ('FDL_toa_int42     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 42, toa',phys_decomp)
    call addfld ('FULC_toa_int42    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 42, toa',phys_decomp)
    call addfld ('FDLC_toa_int42    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 42, toa',phys_decomp)

    call addfld ('FUL_int43     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 43',phys_decomp)
    call addfld ('FDL_int43     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 43',phys_decomp)
    call addfld ('FULC_int43    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 43',phys_decomp)
    call addfld ('FDLC_int43    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 43',phys_decomp)
    call addfld ('FUL_toa_int43     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 43, toa',phys_decomp)
    call addfld ('FDL_toa_int43     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 43, toa',phys_decomp)
    call addfld ('FULC_toa_int43    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 43, toa',phys_decomp)
    call addfld ('FDLC_toa_int43    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 43, toa',phys_decomp)

    call addfld ('FUL_int44     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 44',phys_decomp)
    call addfld ('FDL_int44     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 44',phys_decomp)
    call addfld ('FULC_int44    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 44',phys_decomp)
    call addfld ('FDLC_int44    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 44',phys_decomp)
    call addfld ('FUL_toa_int44     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 44, toa',phys_decomp)
    call addfld ('FDL_toa_int44     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 44, toa',phys_decomp)
    call addfld ('FULC_toa_int44    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 44, toa',phys_decomp)
    call addfld ('FDLC_toa_int44    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 44, toa',phys_decomp)

    call addfld ('FUL_int45     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 45',phys_decomp)
    call addfld ('FDL_int45     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 45',phys_decomp)
    call addfld ('FULC_int45    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 45',phys_decomp)
    call addfld ('FDLC_int45    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 45',phys_decomp)
    call addfld ('FUL_toa_int45     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 45, toa',phys_decomp)
    call addfld ('FDL_toa_int45     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 45, toa',phys_decomp)
    call addfld ('FULC_toa_int45    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 45, toa',phys_decomp)
    call addfld ('FDLC_toa_int45    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 45, toa',phys_decomp)

    call addfld ('FUL_int46     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 46',phys_decomp)
    call addfld ('FDL_int46     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 46',phys_decomp)
    call addfld ('FULC_int46    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 46',phys_decomp)
    call addfld ('FDLC_int46    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 46',phys_decomp)
    call addfld ('FUL_toa_int46     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 46, toa',phys_decomp)
    call addfld ('FDL_toa_int46     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 46, toa',phys_decomp)
    call addfld ('FULC_toa_int46    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 46, toa',phys_decomp)
    call addfld ('FDLC_toa_int46    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 46, toa',phys_decomp)

    call addfld ('FUL_int47     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 47',phys_decomp)
    call addfld ('FDL_int47     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 47',phys_decomp)
    call addfld ('FULC_int47    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 47',phys_decomp)
    call addfld ('FDLC_int47    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 47',phys_decomp)
    call addfld ('FUL_toa_int47     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FDL_toa_int47     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FULC_toa_int47    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FDLC_toa_int47    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 48, toa',phys_decomp)

    call addfld ('FUL_int48     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 48',phys_decomp)
    call addfld ('FDL_int48     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 48',phys_decomp)
    call addfld ('FULC_int48    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 48',phys_decomp)
    call addfld ('FDLC_int48    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 48',phys_decomp)
    call addfld ('FUL_toa_int48     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FDL_toa_int48     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FULC_toa_int48    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 48, toa',phys_decomp)
    call addfld ('FDLC_toa_int48    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 48, toa',phys_decomp)

    call addfld ('FUL_int49     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 49',phys_decomp)
    call addfld ('FDL_int49     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 49',phys_decomp)
    call addfld ('FULC_int49    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 49',phys_decomp)
    call addfld ('FDLC_int49    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 49',phys_decomp)
    call addfld ('FUL_toa_int49     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 49, toa',phys_decomp)
    call addfld ('FDL_toa_int49     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 49, toa',phys_decomp)
    call addfld ('FULC_toa_int49    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 49, toa',phys_decomp)
    call addfld ('FDLC_toa_int49    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 49, toa',phys_decomp)

    call addfld ('FUL_int50     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 50',phys_decomp)
    call addfld ('FDL_int50     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 50',phys_decomp)
    call addfld ('FULC_int50    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 50',phys_decomp)
    call addfld ('FDLC_int50    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 50',phys_decomp)
    call addfld ('FUL_toa_int50     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 50, toa',phys_decomp)
    call addfld ('FDL_toa_int50     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 50, toa',phys_decomp)
    call addfld ('FULC_toa_int50    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 50, toa',phys_decomp)
    call addfld ('FDLC_toa_int50    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 50, toa',phys_decomp)

    call addfld ('FUL_int51     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 51',phys_decomp)
    call addfld ('FDL_int51     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 51',phys_decomp)
    call addfld ('FULC_int51    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 51',phys_decomp)
    call addfld ('FDLC_int51    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 51',phys_decomp)
    call addfld ('FUL_toa_int51     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 51, toa',phys_decomp)
    call addfld ('FDL_toa_int51     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 51, toa',phys_decomp)
    call addfld ('FULC_toa_int51    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 51, toa',phys_decomp)
    call addfld ('FDLC_toa_int51    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 51, toa',phys_decomp)

    call addfld ('FUL_int52     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 52',phys_decomp)
    call addfld ('FDL_int52     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 52',phys_decomp)
    call addfld ('FULC_int52    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 52',phys_decomp)
    call addfld ('FDLC_int52    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 52',phys_decomp)
    call addfld ('FUL_toa_int52     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 52, toa',phys_decomp)
    call addfld ('FDL_toa_int52     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 52, toa',phys_decomp)
    call addfld ('FULC_toa_int52    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 52, toa',phys_decomp)
    call addfld ('FDLC_toa_int52    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 52, toa',phys_decomp)

    call addfld ('FUL_int53     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 53',phys_decomp)
    call addfld ('FDL_int53     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 53',phys_decomp)
    call addfld ('FULC_int53    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 53',phys_decomp)
    call addfld ('FDLC_int53    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 53',phys_decomp)
    call addfld ('FUL_toa_int53     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 53, toa',phys_decomp)
    call addfld ('FDL_toa_int53     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 53, toa',phys_decomp)
    call addfld ('FULC_toa_int53    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 53, toa',phys_decomp)
    call addfld ('FDLC_toa_int53    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 53, toa',phys_decomp)

    call addfld ('FUL_int54     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 54',phys_decomp)
    call addfld ('FDL_int54     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 54',phys_decomp)
    call addfld ('FULC_int54    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 54',phys_decomp)
    call addfld ('FDLC_int54    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 54',phys_decomp)
    call addfld ('FUL_toa_int54     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 54, toa',phys_decomp)
    call addfld ('FDL_toa_int54     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 54, toa',phys_decomp)
    call addfld ('FULC_toa_int54    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 54, toa',phys_decomp)
    call addfld ('FDLC_toa_int54    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 54, toa',phys_decomp)

    call addfld ('FUL_int55     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 55',phys_decomp)
    call addfld ('FDL_int55     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 55',phys_decomp)
    call addfld ('FULC_int55    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 55',phys_decomp)
    call addfld ('FDLC_int55    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 55',phys_decomp)
    call addfld ('FUL_toa_int55     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 55, toa',phys_decomp)
    call addfld ('FDL_toa_int55     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 55, toa',phys_decomp)
    call addfld ('FULC_toa_int55    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 55, toa',phys_decomp)
    call addfld ('FDLC_toa_int55    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 55, toa',phys_decomp)

    call addfld ('FUL_int56     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 56',phys_decomp)
    call addfld ('FDL_int56     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 56',phys_decomp)
    call addfld ('FULC_int56    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 56',phys_decomp)
    call addfld ('FDLC_int56    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 56',phys_decomp)
    call addfld ('FUL_toa_int56     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 56, toa',phys_decomp)
    call addfld ('FDL_toa_int56     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 56, toa',phys_decomp)
    call addfld ('FULC_toa_int56    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 56, toa',phys_decomp)
    call addfld ('FDLC_toa_int56    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 56, toa',phys_decomp)

    call addfld ('FUL_int57     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 57',phys_decomp)
    call addfld ('FDL_int57     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 57',phys_decomp)
    call addfld ('FULC_int57    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 57',phys_decomp)
    call addfld ('FDLC_int57    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 57',phys_decomp)
    call addfld ('FUL_toa_int57     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 57, toa',phys_decomp)
    call addfld ('FDL_toa_int57     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 57, toa',phys_decomp)
    call addfld ('FULC_toa_int57    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 57, toa',phys_decomp)
    call addfld ('FDLC_toa_int57    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 57, toa',phys_decomp)

    call addfld ('FUL_int58     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 58',phys_decomp)
    call addfld ('FDL_int58     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 58',phys_decomp)
    call addfld ('FULC_int58    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 58',phys_decomp)
    call addfld ('FDLC_int58    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 58',phys_decomp)
    call addfld ('FUL_toa_int58     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 58, toa',phys_decomp)
    call addfld ('FDL_toa_int58     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 58, toa',phys_decomp)
    call addfld ('FULC_toa_int58    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 58, toa',phys_decomp)
    call addfld ('FDLC_toa_int58    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 58, toa',phys_decomp)

    call addfld ('FUL_int59     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 59',phys_decomp)
    call addfld ('FDL_int59     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 59',phys_decomp)
    call addfld ('FULC_int59    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 59',phys_decomp)
    call addfld ('FDLC_int59    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 59',phys_decomp)
    call addfld ('FUL_toa_int59     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 59, toa',phys_decomp)
    call addfld ('FDL_toa_int59     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 59, toa',phys_decomp)
    call addfld ('FULC_toa_int59    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 59, toa',phys_decomp)
    call addfld ('FDLC_toa_int59    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 59, toa',phys_decomp)

    call addfld ('FUL_int60     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 60',phys_decomp)
    call addfld ('FDL_int60     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 60',phys_decomp)
    call addfld ('FULC_int60    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 60',phys_decomp)
    call addfld ('FDLC_int60    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 60',phys_decomp)
    call addfld ('FUL_toa_int60     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 60, toa',phys_decomp)
    call addfld ('FDL_toa_int60     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 60, toa',phys_decomp)
    call addfld ('FULC_toa_int60    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 60, toa',phys_decomp)
    call addfld ('FDLC_toa_int60    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 60, toa',phys_decomp)

    call addfld ('FUL_int61     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 61',phys_decomp)
    call addfld ('FDL_int61     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 61',phys_decomp)
    call addfld ('FULC_int61    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 61',phys_decomp)
    call addfld ('FDLC_int61    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 61',phys_decomp)
    call addfld ('FUL_toa_int61     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 61, toa',phys_decomp)
    call addfld ('FDL_toa_int61     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 61, toa',phys_decomp)
    call addfld ('FULC_toa_int61    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 61, toa',phys_decomp)
    call addfld ('FDLC_toa_int61    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 61, toa',phys_decomp)

    call addfld ('FUL_int62     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 62',phys_decomp)
    call addfld ('FDL_int62     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 62',phys_decomp)
    call addfld ('FULC_int62    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 62',phys_decomp)
    call addfld ('FDLC_int62    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 62',phys_decomp)
    call addfld ('FUL_toa_int62     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 62, toa',phys_decomp)
    call addfld ('FDL_toa_int62     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 62, toa',phys_decomp)
    call addfld ('FULC_toa_int62    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 62, toa',phys_decomp)
    call addfld ('FDLC_toa_int62    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 62, toa',phys_decomp)

    call addfld ('FUL_int63     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 63',phys_decomp)
    call addfld ('FDL_int63     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 63',phys_decomp)
    call addfld ('FULC_int63    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 63',phys_decomp)
    call addfld ('FDLC_int63    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 63',phys_decomp)
    call addfld ('FUL_toa_int63     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 63, toa',phys_decomp)
    call addfld ('FDL_toa_int63     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 63, toa',phys_decomp)
    call addfld ('FULC_toa_int63    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 63, toa',phys_decomp)
    call addfld ('FDLC_toa_int63    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 63, toa',phys_decomp)

    call addfld ('FUL_int64     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 64',phys_decomp)
    call addfld ('FDL_int64     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 64',phys_decomp)
    call addfld ('FULC_int64    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 64',phys_decomp)
    call addfld ('FDLC_int64    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 64',phys_decomp)
    call addfld ('FUL_toa_int64     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 64, toa',phys_decomp)
    call addfld ('FDL_toa_int64     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 64, toa',phys_decomp)
    call addfld ('FULC_toa_int64    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 64, toa',phys_decomp)
    call addfld ('FDLC_toa_int64    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 64, toa',phys_decomp)

    call addfld ('FUL_int65     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 65',phys_decomp)
    call addfld ('FDL_int65     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 65',phys_decomp)
    call addfld ('FULC_int65    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 65',phys_decomp)
    call addfld ('FDLC_int65    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 65',phys_decomp)
    call addfld ('FUL_toa_int65     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FDL_toa_int65     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FULC_toa_int65    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 65, toa',phys_decomp)
    call addfld ('FDLC_toa_int65    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 65, toa',phys_decomp)

    call addfld ('FUL_int66     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 66',phys_decomp)
    call addfld ('FDL_int66     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 66',phys_decomp)
    call addfld ('FULC_int66    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 66',phys_decomp)
    call addfld ('FDLC_int66    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 66',phys_decomp)
    call addfld ('FUL_toa_int66     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 66, toa',phys_decomp)
    call addfld ('FDL_toa_int66     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 66, toa',phys_decomp)
    call addfld ('FULC_toa_int66    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 66, toa',phys_decomp)
    call addfld ('FDLC_toa_int66    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 66, toa',phys_decomp)

    call addfld ('FUL_int67     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 67',phys_decomp)
    call addfld ('FDL_int67     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 67',phys_decomp)
    call addfld ('FULC_int67    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 67',phys_decomp)
    call addfld ('FDLC_int67    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 67',phys_decomp)
    call addfld ('FUL_toa_int67     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 67, toa',phys_decomp)
    call addfld ('FDL_toa_int67     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 67, toa',phys_decomp)
    call addfld ('FULC_toa_int67    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 67, toa',phys_decomp)
    call addfld ('FDLC_toa_int67    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 67, toa',phys_decomp)

    call addfld ('FUL_int68     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 68',phys_decomp)
    call addfld ('FDL_int68     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 68',phys_decomp)
    call addfld ('FULC_int68    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 68',phys_decomp)
    call addfld ('FDLC_int68    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 68',phys_decomp)
    call addfld ('FUL_toa_int68     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 68, toa',phys_decomp)
    call addfld ('FDL_toa_int68     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 68, toa',phys_decomp)
    call addfld ('FULC_toa_int68    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 68, toa',phys_decomp)
    call addfld ('FDLC_toa_int68    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 68, toa',phys_decomp)

    call addfld ('FUL_int69     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 69',phys_decomp)
    call addfld ('FDL_int69     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 69',phys_decomp)
    call addfld ('FULC_int69    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 69',phys_decomp)
    call addfld ('FDLC_int69    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 69',phys_decomp)
    call addfld ('FUL_toa_int69     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 69, toa',phys_decomp)
    call addfld ('FDL_toa_int69     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 69, toa',phys_decomp)
    call addfld ('FULC_toa_int69    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 69, toa',phys_decomp)
    call addfld ('FDLC_toa_int69    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 69, toa',phys_decomp)

    call addfld ('FUL_int70     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 70',phys_decomp)
    call addfld ('FDL_int70     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 70',phys_decomp)
    call addfld ('FULC_int70    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 70',phys_decomp)
    call addfld ('FDLC_int70    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 70',phys_decomp)
    call addfld ('FUL_toa_int70     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 70, toa',phys_decomp)
    call addfld ('FDL_toa_int70     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 70, toa',phys_decomp)
    call addfld ('FULC_toa_int70    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 70, toa',phys_decomp)
    call addfld ('FDLC_toa_int70    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 70, toa',phys_decomp)

    call addfld ('FUL_int71     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 71',phys_decomp)
    call addfld ('FDL_int71     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 71',phys_decomp)
    call addfld ('FULC_int71    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 71',phys_decomp)
    call addfld ('FDLC_int71    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 71',phys_decomp)
    call addfld ('FUL_toa_int71     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 71, toa',phys_decomp)
    call addfld ('FDL_toa_int71     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 71, toa',phys_decomp)
    call addfld ('FULC_toa_int71    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 71, toa',phys_decomp)
    call addfld ('FDLC_toa_int71    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 71, toa',phys_decomp)

    call addfld ('FUL_int72     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 72',phys_decomp)
    call addfld ('FDL_int72     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 72',phys_decomp)
    call addfld ('FULC_int72    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 72',phys_decomp)
    call addfld ('FDLC_int72    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 72',phys_decomp)
    call addfld ('FUL_toa_int72     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 72, toa',phys_decomp)
    call addfld ('FDL_toa_int72     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 72, toa',phys_decomp)
    call addfld ('FULC_toa_int72    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 72, toa',phys_decomp)
    call addfld ('FDLC_toa_int72    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 72, toa',phys_decomp)

    call addfld ('FUL_int73     ','W/m2    ',pverp,'A','Longwave upward flux, spectral interval 73',phys_decomp)
    call addfld ('FDL_int73     ','W/m2    ',pverp,'A','Longwave downward flux, spectral interval 73',phys_decomp)
    call addfld ('FULC_int73    ','W/m2    ',pverp,'A','Longwave clear-sky upward flux, spectral interval 73',phys_decomp)
    call addfld ('FDLC_int73    ','W/m2    ',pverp,'A','Longwave clear-sky downward flux, spectral interval 73',phys_decomp)
    call addfld ('FUL_toa_int73     ','W/m2    ',1,'A','Longwave upward flux, spectral interval 73, toa',phys_decomp)
    call addfld ('FDL_toa_int73     ','W/m2    ',1,'A','Longwave downward flux, spectral interval 73, toa',phys_decomp)
    call addfld ('FULC_toa_int73    ','W/m2    ',1,'A','Longwave clear-sky upward flux, spectral interval 73, toa',phys_decomp)
    call addfld ('FDLC_toa_int73    ','W/m2    ',1,'A','Longwave clear-sky downward flux, spectral interval 73, toa',phys_decomp)

  end subroutine addfld_spectral_intervals



!============================================================================
 
  subroutine outfld_spectral_flux_fullsky(lchnk, lwdown_rad_spec_in, lwup_rad_spec_in, swup_rad_spec_in, swdown_rad_spec_in )

!------------------------------------------------------------------------
!
! Purpose:  Add spectral output to master field list
!
!------------------------------------------------------------------------
   use cam_history,       only: outfld
!------------------------------------------------------------------------
!
! Arguments
!
    integer,  intent(in) :: lchnk
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  lwdown_rad_spec_in
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  lwup_rad_spec_in
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  swup_rad_spec_in
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  swdown_rad_spec_in

!------------------------------------------------------------------------
!
! Start Code
!

    ! shortwave fields
    call outfld('FUS_int01     ',swup_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FDS_int01     ',swdown_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FUS_int02     ',swup_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FDS_int02     ',swdown_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FUS_int03     ',swup_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FDS_int03     ',swdown_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FUS_int04     ',swup_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FDS_int04     ',swdown_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FUS_int05     ',swup_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FDS_int05     ',swdown_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FUS_int06     ',swup_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FDS_int06     ',swdown_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FUS_int07     ',swup_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FDS_int07     ',swdown_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FUS_int08     ',swup_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FDS_int08     ',swdown_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FUS_int09     ',swup_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FDS_int09     ',swdown_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FUS_int10     ',swup_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FDS_int10     ',swdown_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FUS_int11     ',swup_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FDS_int11     ',swdown_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FUS_int12     ',swup_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FDS_int12     ',swdown_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FUS_int13     ',swup_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FDS_int13     ',swdown_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FUS_int14     ',swup_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FDS_int14     ',swdown_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FUS_int15     ',swup_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FDS_int15     ',swdown_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FUS_int16     ',swup_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FDS_int16     ',swdown_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FUS_int17     ',swup_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FDS_int17     ',swdown_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FUS_int18     ',swup_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FDS_int18     ',swdown_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FUS_int19     ',swup_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FDS_int19     ',swdown_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FUS_int20     ',swup_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FDS_int20     ',swdown_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FUS_int21     ',swup_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FDS_int21     ',swdown_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FUS_int22     ',swup_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FDS_int22     ',swdown_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FUS_int23     ',swup_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FDS_int23     ',swdown_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FUS_int24     ',swup_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FDS_int24     ',swdown_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FUS_int25     ',swup_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FDS_int25     ',swdown_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FUS_int26     ',swup_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FDS_int26     ',swdown_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FUS_int27     ',swup_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FDS_int27     ',swdown_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FUS_int28     ',swup_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FDS_int28     ',swdown_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FUS_int29     ',swup_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FDS_int29     ',swdown_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FUS_int30     ',swup_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FDS_int30     ',swdown_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FUS_int31     ',swup_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FDS_int31     ',swdown_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FUS_int32     ',swup_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FDS_int32     ',swdown_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FUS_int33     ',swup_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FDS_int33     ',swdown_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FUS_int34     ',swup_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FDS_int34     ',swdown_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FUS_int35     ',swup_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FDS_int35     ',swdown_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FUS_int36     ',swup_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FDS_int36     ',swdown_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FUS_int37     ',swup_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FDS_int37     ',swdown_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FUS_int38     ',swup_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FDS_int38     ',swdown_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FUS_int39     ',swup_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FDS_int39     ',swdown_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FUS_int40     ',swup_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FDS_int40     ',swdown_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FUS_int41     ',swup_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FDS_int41     ',swdown_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FUS_int42     ',swup_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FDS_int42     ',swdown_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FUS_int43     ',swup_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FDS_int43     ',swdown_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FUS_int44     ',swup_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FDS_int44     ',swdown_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FUS_int45     ',swup_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FDS_int45     ',swdown_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FUS_int46     ',swup_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FDS_int46     ',swdown_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FUS_int47     ',swup_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FDS_int47     ',swdown_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FUS_int48     ',swup_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FDS_int48     ',swdown_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FUS_int49     ',swup_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FDS_int49     ',swdown_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FUS_int50     ',swup_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FDS_int50     ',swdown_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FUS_int51     ',swup_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FDS_int51     ',swdown_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FUS_int52     ',swup_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FDS_int52     ',swdown_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FUS_int53     ',swup_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FDS_int53     ',swdown_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FUS_int54     ',swup_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FDS_int54     ',swdown_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FUS_int55     ',swup_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FDS_int55     ',swdown_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FUS_int56     ',swup_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FDS_int56     ',swdown_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FUS_int57     ',swup_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FDS_int57     ',swdown_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FUS_int58     ',swup_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FDS_int58     ',swdown_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FUS_int59     ',swup_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FDS_int59     ',swdown_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FUS_int60     ',swup_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FDS_int60     ',swdown_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FUS_int61     ',swup_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FDS_int61     ',swdown_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FUS_int62     ',swup_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FDS_int62     ',swdown_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FUS_int63     ',swup_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FDS_int63     ',swdown_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FUS_int64     ',swup_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FDS_int64     ',swdown_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FUS_int65     ',swup_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FDS_int65     ',swdown_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FUS_int66     ',swup_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FDS_int66     ',swdown_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FUS_int67     ',swup_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FDS_int67     ',swdown_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FUS_int68     ',swup_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FDS_int68     ',swdown_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FUS_int69     ',swup_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FDS_int69     ',swdown_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FUS_int70     ',swup_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FDS_int70     ',swdown_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FUS_int71     ',swup_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FDS_int71     ',swdown_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FUS_int72     ',swup_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FDS_int72     ',swdown_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FUS_int73     ',swup_rad_spec_in(:,:,73), pcols, lchnk)
    call outfld('FDS_int73     ',swdown_rad_spec_in(:,:,73), pcols, lchnk)


    call outfld('FUS_toa_int01     ',swup_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FDS_toa_int01     ',swdown_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FUS_toa_int02     ',swup_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FDS_toa_int02     ',swdown_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FUS_toa_int03     ',swup_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FDS_toa_int03     ',swdown_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FUS_toa_int04     ',swup_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FDS_toa_int04     ',swdown_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FUS_toa_int05     ',swup_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FDS_toa_int05     ',swdown_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FUS_toa_int06     ',swup_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FDS_toa_int06     ',swdown_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FUS_toa_int07     ',swup_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FDS_toa_int07     ',swdown_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FUS_toa_int08     ',swup_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FDS_toa_int08     ',swdown_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FUS_toa_int09     ',swup_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FDS_toa_int09     ',swdown_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FUS_toa_int10     ',swup_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FDS_toa_int10     ',swdown_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FUS_toa_int11     ',swup_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FDS_toa_int11     ',swdown_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FUS_toa_int12     ',swup_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FDS_toa_int12     ',swdown_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FUS_toa_int13     ',swup_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FDS_toa_int13     ',swdown_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FUS_toa_int14     ',swup_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FDS_toa_int14     ',swdown_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FUS_toa_int15     ',swup_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FDS_toa_int15     ',swdown_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FUS_toa_int16     ',swup_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FDS_toa_int16     ',swdown_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FUS_toa_int17     ',swup_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FDS_toa_int17     ',swdown_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FUS_toa_int18     ',swup_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FDS_toa_int18     ',swdown_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FUS_toa_int19     ',swup_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FDS_toa_int19     ',swdown_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FUS_toa_int20     ',swup_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FDS_toa_int20     ',swdown_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FUS_toa_int21     ',swup_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FDS_toa_int21     ',swdown_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FUS_toa_int22     ',swup_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FDS_toa_int22     ',swdown_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FUS_toa_int23     ',swup_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FDS_toa_int23     ',swdown_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FUS_toa_int24     ',swup_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FDS_toa_int24     ',swdown_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FUS_toa_int25     ',swup_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FDS_toa_int25     ',swdown_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FUS_toa_int26     ',swup_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FDS_toa_int26     ',swdown_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FUS_toa_int27     ',swup_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FDS_toa_int27     ',swdown_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FUS_toa_int28     ',swup_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FDS_toa_int28     ',swdown_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FUS_toa_int29     ',swup_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FDS_toa_int29     ',swdown_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FUS_toa_int30     ',swup_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FDS_toa_int30     ',swdown_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FUS_toa_int31     ',swup_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FDS_toa_int31     ',swdown_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FUS_toa_int32     ',swup_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FDS_toa_int32     ',swdown_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FUS_toa_int33     ',swup_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FDS_toa_int33     ',swdown_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FUS_toa_int34     ',swup_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FDS_toa_int34     ',swdown_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FUS_toa_int35     ',swup_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FDS_toa_int35     ',swdown_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FUS_toa_int36     ',swup_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FDS_toa_int36     ',swdown_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FUS_toa_int37     ',swup_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FDS_toa_int37     ',swdown_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FUS_toa_int38     ',swup_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FDS_toa_int38     ',swdown_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FUS_toa_int39     ',swup_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FDS_toa_int39     ',swdown_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FUS_toa_int40     ',swup_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FDS_toa_int40     ',swdown_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FUS_toa_int41     ',swup_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FDS_toa_int41     ',swdown_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FUS_toa_int42     ',swup_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FDS_toa_int42     ',swdown_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FUS_toa_int43     ',swup_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FDS_toa_int43     ',swdown_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FUS_toa_int44     ',swup_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FDS_toa_int44     ',swdown_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FUS_toa_int45     ',swup_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FDS_toa_int45     ',swdown_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FUS_toa_int46     ',swup_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FDS_toa_int46     ',swdown_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FUS_toa_int47     ',swup_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FDS_toa_int47     ',swdown_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FUS_toa_int48     ',swup_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FDS_toa_int48     ',swdown_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FUS_toa_int49     ',swup_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FDS_toa_int49     ',swdown_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FUS_toa_int50     ',swup_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FDS_toa_int50     ',swdown_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FUS_toa_int51     ',swup_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FDS_toa_int51     ',swdown_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FUS_toa_int52     ',swup_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FDS_toa_int52     ',swdown_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FUS_toa_int53     ',swup_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FDS_toa_int53     ',swdown_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FUS_toa_int54     ',swup_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FDS_toa_int54     ',swdown_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FUS_toa_int55     ',swup_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FDS_toa_int55     ',swdown_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FUS_toa_int56     ',swup_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FDS_toa_int56     ',swdown_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FUS_toa_int57     ',swup_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FDS_toa_int57     ',swdown_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FUS_toa_int58     ',swup_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FDS_toa_int58     ',swdown_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FUS_toa_int59     ',swup_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FDS_toa_int59     ',swdown_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FUS_toa_int60     ',swup_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FDS_toa_int60     ',swdown_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FUS_toa_int61     ',swup_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FDS_toa_int61     ',swdown_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FUS_toa_int62     ',swup_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FDS_toa_int62     ',swdown_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FUS_toa_int63     ',swup_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FDS_toa_int63     ',swdown_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FUS_toa_int64     ',swup_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FDS_toa_int64     ',swdown_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FUS_toa_int65     ',swup_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FDS_toa_int65     ',swdown_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FUS_toa_int66     ',swup_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FDS_toa_int66     ',swdown_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FUS_toa_int67     ',swup_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FDS_toa_int67     ',swdown_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FUS_toa_int68     ',swup_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FDS_toa_int68     ',swdown_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FUS_toa_int69     ',swup_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FDS_toa_int69     ',swdown_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FUS_toa_int70     ',swup_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FDS_toa_int70     ',swdown_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FUS_toa_int71     ',swup_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FDS_toa_int71     ',swdown_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FUS_toa_int72     ',swup_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FDS_toa_int72     ',swdown_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FUS_toa_int73     ',swup_rad_spec_in(:,1,73), pcols, lchnk)
    call outfld('FDS_toa_int73     ',swdown_rad_spec_in(:,1,73), pcols, lchnk)


    ! longwave
    call outfld('FUL_int01     ',lwup_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FDL_int01     ',lwdown_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FUL_int02     ',lwup_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FDL_int02     ',lwdown_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FUL_int03     ',lwup_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FDL_int03     ',lwdown_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FUL_int04     ',lwup_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FDL_int04     ',lwdown_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FUL_int05     ',lwup_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FDL_int05     ',lwdown_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FUL_int06     ',lwup_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FDL_int06     ',lwdown_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FUL_int07     ',lwup_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FDL_int07     ',lwdown_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FUL_int08     ',lwup_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FDL_int08     ',lwdown_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FUL_int09     ',lwup_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FDL_int09     ',lwdown_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FUL_int10     ',lwup_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FDL_int10     ',lwdown_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FUL_int11     ',lwup_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FDL_int11     ',lwdown_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FUL_int12     ',lwup_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FDL_int12     ',lwdown_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FUL_int13     ',lwup_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FDL_int13     ',lwdown_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FUL_int14     ',lwup_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FDL_int14     ',lwdown_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FUL_int15     ',lwup_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FDL_int15     ',lwdown_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FUL_int16     ',lwup_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FDL_int16     ',lwdown_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FUL_int17     ',lwup_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FDL_int17     ',lwdown_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FUL_int18     ',lwup_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FDL_int18     ',lwdown_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FUL_int19     ',lwup_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FDL_int19     ',lwdown_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FUL_int20     ',lwup_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FDL_int20     ',lwdown_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FUL_int21     ',lwup_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FDL_int21     ',lwdown_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FUL_int22     ',lwup_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FDL_int22     ',lwdown_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FUL_int23     ',lwup_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FDL_int23     ',lwdown_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FUL_int24     ',lwup_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FDL_int24     ',lwdown_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FUL_int25     ',lwup_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FDL_int25     ',lwdown_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FUL_int26     ',lwup_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FDL_int26     ',lwdown_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FUL_int27     ',lwup_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FDL_int27     ',lwdown_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FUL_int28     ',lwup_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FDL_int28     ',lwdown_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FUL_int29     ',lwup_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FDL_int29     ',lwdown_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FUL_int30     ',lwup_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FDL_int30     ',lwdown_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FUL_int31     ',lwup_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FDL_int31     ',lwdown_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FUL_int32     ',lwup_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FDL_int32     ',lwdown_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FUL_int33     ',lwup_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FDL_int33     ',lwdown_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FUL_int34     ',lwup_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FDL_int34     ',lwdown_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FUL_int35     ',lwup_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FDL_int35     ',lwdown_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FUL_int36     ',lwup_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FDL_int36     ',lwdown_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FUL_int37     ',lwup_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FDL_int37     ',lwdown_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FUL_int38     ',lwup_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FDL_int38     ',lwdown_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FUL_int39     ',lwup_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FDL_int39     ',lwdown_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FUL_int40     ',lwup_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FDL_int40     ',lwdown_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FUL_int41     ',lwup_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FDL_int41     ',lwdown_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FUL_int42     ',lwup_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FDL_int42     ',lwdown_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FUL_int43     ',lwup_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FDL_int43     ',lwdown_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FUL_int44     ',lwup_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FDL_int44     ',lwdown_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FUL_int45     ',lwup_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FDL_int45     ',lwdown_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FUL_int46     ',lwup_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FDL_int46     ',lwdown_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FUL_int47     ',lwup_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FDL_int47     ',lwdown_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FUL_int48     ',lwup_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FDL_int48     ',lwdown_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FUL_int49     ',lwup_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FDL_int49     ',lwdown_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FUL_int50     ',lwup_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FDL_int50     ',lwdown_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FUL_int51     ',lwup_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FDL_int51     ',lwdown_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FUL_int52     ',lwup_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FDL_int52     ',lwdown_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FUL_int53     ',lwup_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FDL_int53     ',lwdown_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FUL_int54     ',lwup_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FDL_int54     ',lwdown_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FUL_int55     ',lwup_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FDL_int55     ',lwdown_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FUL_int56     ',lwup_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FDL_int56     ',lwdown_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FUL_int57     ',lwup_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FDL_int57     ',lwdown_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FUL_int58     ',lwup_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FDL_int58     ',lwdown_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FUL_int59     ',lwup_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FDL_int59     ',lwdown_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FUL_int60     ',lwup_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FDL_int60     ',lwdown_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FUL_int61     ',lwup_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FDL_int61     ',lwdown_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FUL_int62     ',lwup_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FDL_int62     ',lwdown_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FUL_int63     ',lwup_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FDL_int63     ',lwdown_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FUL_int64     ',lwup_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FDL_int64     ',lwdown_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FUL_int65     ',lwup_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FDL_int65     ',lwdown_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FUL_int66     ',lwup_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FDL_int66     ',lwdown_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FUL_int67     ',lwup_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FDL_int67     ',lwdown_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FUL_int68     ',lwup_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FDL_int68     ',lwdown_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FUL_int69     ',lwup_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FDL_int69     ',lwdown_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FUL_int70     ',lwup_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FDL_int70     ',lwdown_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FUL_int71     ',lwup_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FDL_int71     ',lwdown_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FUL_int72     ',lwup_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FDL_int72     ',lwdown_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FUL_int73     ',lwup_rad_spec_in(:,:,73), pcols, lchnk)
    call outfld('FDL_int73     ',lwdown_rad_spec_in(:,:,73), pcols, lchnk)

    call outfld('FUL_toa_int01     ',lwup_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FDL_toa_int01     ',lwdown_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FUL_toa_int02     ',lwup_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FDL_toa_int02     ',lwdown_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FUL_toa_int03     ',lwup_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FDL_toa_int03     ',lwdown_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FUL_toa_int04     ',lwup_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FDL_toa_int04     ',lwdown_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FUL_toa_int05     ',lwup_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FDL_toa_int05     ',lwdown_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FUL_toa_int06     ',lwup_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FDL_toa_int06     ',lwdown_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FUL_toa_int07     ',lwup_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FDL_toa_int07     ',lwdown_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FUL_toa_int08     ',lwup_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FDL_toa_int08     ',lwdown_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FUL_toa_int09     ',lwup_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FDL_toa_int09     ',lwdown_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FUL_toa_int10     ',lwup_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FDL_toa_int10     ',lwdown_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FUL_toa_int11     ',lwup_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FDL_toa_int11     ',lwdown_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FUL_toa_int12     ',lwup_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FDL_toa_int12     ',lwdown_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FUL_toa_int13     ',lwup_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FDL_toa_int13     ',lwdown_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FUL_toa_int14     ',lwup_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FDL_toa_int14     ',lwdown_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FUL_toa_int15     ',lwup_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FDL_toa_int15     ',lwdown_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FUL_toa_int16     ',lwup_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FDL_toa_int16     ',lwdown_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FUL_toa_int17     ',lwup_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FDL_toa_int17     ',lwdown_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FUL_toa_int18     ',lwup_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FDL_toa_int18     ',lwdown_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FUL_toa_int19     ',lwup_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FDL_toa_int19     ',lwdown_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FUL_toa_int20     ',lwup_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FDL_toa_int20     ',lwdown_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FUL_toa_int21     ',lwup_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FDL_toa_int21     ',lwdown_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FUL_toa_int22     ',lwup_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FDL_toa_int22     ',lwdown_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FUL_toa_int23     ',lwup_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FDL_toa_int23     ',lwdown_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FUL_toa_int24     ',lwup_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FDL_toa_int24     ',lwdown_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FUL_toa_int25     ',lwup_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FDL_toa_int25     ',lwdown_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FUL_toa_int26     ',lwup_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FDL_toa_int26     ',lwdown_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FUL_toa_int27     ',lwup_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FDL_toa_int27     ',lwdown_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FUL_toa_int28     ',lwup_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FDL_toa_int28     ',lwdown_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FUL_toa_int29     ',lwup_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FDL_toa_int29     ',lwdown_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FUL_toa_int30     ',lwup_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FDL_toa_int30     ',lwdown_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FUL_toa_int31     ',lwup_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FDL_toa_int31     ',lwdown_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FUL_toa_int32     ',lwup_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FDL_toa_int32     ',lwdown_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FUL_toa_int33     ',lwup_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FDL_toa_int33     ',lwdown_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FUL_toa_int34     ',lwup_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FDL_toa_int34     ',lwdown_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FUL_toa_int35     ',lwup_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FDL_toa_int35     ',lwdown_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FUL_toa_int36     ',lwup_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FDL_toa_int36     ',lwdown_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FUL_toa_int37     ',lwup_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FDL_toa_int37     ',lwdown_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FUL_toa_int38     ',lwup_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FDL_toa_int38     ',lwdown_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FUL_toa_int39     ',lwup_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FDL_toa_int39     ',lwdown_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FUL_toa_int40     ',lwup_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FDL_toa_int40     ',lwdown_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FUL_toa_int41     ',lwup_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FDL_toa_int41     ',lwdown_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FUL_toa_int42     ',lwup_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FDL_toa_int42     ',lwdown_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FUL_toa_int43     ',lwup_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FDL_toa_int43     ',lwdown_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FUL_toa_int44     ',lwup_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FDL_toa_int44     ',lwdown_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FUL_toa_int45     ',lwup_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FDL_toa_int45     ',lwdown_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FUL_toa_int46     ',lwup_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FDL_toa_int46     ',lwdown_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FUL_toa_int47     ',lwup_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FDL_toa_int47     ',lwdown_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FUL_toa_int48     ',lwup_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FDL_toa_int48     ',lwdown_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FUL_toa_int49     ',lwup_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FDL_toa_int49     ',lwdown_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FUL_toa_int50     ',lwup_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FDL_toa_int50     ',lwdown_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FUL_toa_int51     ',lwup_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FDL_toa_int51     ',lwdown_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FUL_toa_int52     ',lwup_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FDL_toa_int52     ',lwdown_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FUL_toa_int53     ',lwup_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FDL_toa_int53     ',lwdown_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FUL_toa_int54     ',lwup_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FDL_toa_int54     ',lwdown_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FUL_toa_int55     ',lwup_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FDL_toa_int55     ',lwdown_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FUL_toa_int56     ',lwup_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FDL_toa_int56     ',lwdown_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FUL_toa_int57     ',lwup_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FDL_toa_int57     ',lwdown_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FUL_toa_int58     ',lwup_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FDL_toa_int58     ',lwdown_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FUL_toa_int59     ',lwup_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FDL_toa_int59     ',lwdown_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FUL_toa_int60     ',lwup_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FDL_toa_int60     ',lwdown_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FUL_toa_int61     ',lwup_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FDL_toa_int61     ',lwdown_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FUL_toa_int62     ',lwup_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FDL_toa_int62     ',lwdown_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FUL_toa_int63     ',lwup_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FDL_toa_int63     ',lwdown_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FUL_toa_int64     ',lwup_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FDL_toa_int64     ',lwdown_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FUL_toa_int65     ',lwup_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FDL_toa_int65     ',lwdown_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FUL_toa_int66     ',lwup_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FDL_toa_int66     ',lwdown_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FUL_toa_int67     ',lwup_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FDL_toa_int67     ',lwdown_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FUL_toa_int68     ',lwup_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FDL_toa_int68     ',lwdown_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FUL_toa_int69     ',lwup_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FDL_toa_int69     ',lwdown_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FUL_toa_int70     ',lwup_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FDL_toa_int70     ',lwdown_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FUL_toa_int71     ',lwup_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FDL_toa_int71     ',lwdown_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FUL_toa_int72     ',lwup_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FDL_toa_int72     ',lwdown_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FUL_toa_int73     ',lwup_rad_spec_in(:,1,73), pcols, lchnk)
    call outfld('FDL_toa_int73     ',lwdown_rad_spec_in(:,1,73), pcols, lchnk)

end subroutine outfld_spectral_flux_fullsky
               


!============================================================================
 
  subroutine outfld_spectral_flux_clearsky (lchnk, lwdown_rad_spec_in, lwup_rad_spec_in, swup_rad_spec_in, swdown_rad_spec_in )

!------------------------------------------------------------------------
!
! Purpose:  Add spectral output to master field list
!
!------------------------------------------------------------------------
   use cam_history,       only: outfld
!------------------------------------------------------------------------
!
! Arguments
!
    integer,  intent(in) :: lchnk
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  lwdown_rad_spec_in
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  lwup_rad_spec_in
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  swup_rad_spec_in
    real(r8), intent(in), dimension(pcols,pverp,ntot_wavlnrng) ::  swdown_rad_spec_in

!------------------------------------------------------------------------
!
! Start Code
!

    ! shortwave fields
    call outfld('FUSC_int01     ',swup_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FDSC_int01     ',swdown_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FUSC_int02     ',swup_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FDSC_int02     ',swdown_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FUSC_int03     ',swup_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FDSC_int03     ',swdown_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FUSC_int04     ',swup_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FDSC_int04     ',swdown_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FUSC_int05     ',swup_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FDSC_int05     ',swdown_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FUSC_int06     ',swup_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FDSC_int06     ',swdown_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FUSC_int07     ',swup_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FDSC_int07     ',swdown_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FUSC_int08     ',swup_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FDSC_int08     ',swdown_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FUSC_int09     ',swup_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FDSC_int09     ',swdown_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FUSC_int10     ',swup_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FDSC_int10     ',swdown_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FUSC_int11     ',swup_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FDSC_int11     ',swdown_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FUSC_int12     ',swup_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FDSC_int12     ',swdown_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FUSC_int13     ',swup_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FDSC_int13     ',swdown_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FUSC_int14     ',swup_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FDSC_int14     ',swdown_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FUSC_int15     ',swup_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FDSC_int15     ',swdown_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FUSC_int16     ',swup_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FDSC_int16     ',swdown_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FUSC_int17     ',swup_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FDSC_int17    ',swdown_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FUSC_int18     ',swup_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FDSC_int18     ',swdown_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FUSC_int19     ',swup_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FDSC_int19     ',swdown_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FUSC_int20     ',swup_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FDSC_int20     ',swdown_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FUSC_int21     ',swup_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FDSC_int21     ',swdown_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FUSC_int22     ',swup_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FDSC_int22     ',swdown_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FUSC_int23     ',swup_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FDSC_int23     ',swdown_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FUSC_int24     ',swup_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FDSC_int24     ',swdown_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FUSC_int25     ',swup_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FDSC_int25     ',swdown_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FUSC_int26     ',swup_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FDSC_int26     ',swdown_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FUSC_int27     ',swup_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FDSC_int27     ',swdown_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FUSC_int28     ',swup_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FDSC_int28     ',swdown_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FUSC_int29     ',swup_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FDSC_int29     ',swdown_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FUSC_int30     ',swup_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FDSC_int30     ',swdown_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FUSC_int31     ',swup_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FDSC_int31     ',swdown_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FUSC_int32     ',swup_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FDSC_int32     ',swdown_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FUSC_int33     ',swup_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FDSC_int33     ',swdown_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FUSC_int34     ',swup_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FDSC_int34     ',swdown_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FUSC_int35     ',swup_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FDSC_int35     ',swdown_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FUSC_int36     ',swup_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FDSC_int36     ',swdown_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FUSC_int37     ',swup_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FDSC_int37     ',swdown_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FUSC_int38     ',swup_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FDSC_int38     ',swdown_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FUSC_int39     ',swup_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FDSC_int39     ',swdown_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FUSC_int40     ',swup_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FDSC_int40     ',swdown_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FUSC_int41     ',swup_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FDSC_int41     ',swdown_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FUSC_int42     ',swup_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FDSC_int42     ',swdown_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FUSC_int43     ',swup_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FDSC_int43     ',swdown_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FUSC_int44     ',swup_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FDSC_int44     ',swdown_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FUSC_int45     ',swup_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FDSC_int45     ',swdown_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FUSC_int46     ',swup_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FDSC_int46     ',swdown_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FUSC_int47     ',swup_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FDSC_int47     ',swdown_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FUSC_int48     ',swup_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FDSC_int48     ',swdown_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FUSC_int49     ',swup_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FDSC_int49     ',swdown_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FUSC_int50     ',swup_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FDSC_int50     ',swdown_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FUSC_int51     ',swup_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FDSC_int51     ',swdown_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FUSC_int52     ',swup_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FDSC_int52     ',swdown_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FUSC_int53     ',swup_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FDSC_int53     ',swdown_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FUSC_int54     ',swup_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FDSC_int54     ',swdown_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FUSC_int55     ',swup_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FDSC_int55     ',swdown_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FUSC_int56     ',swup_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FDSC_int56     ',swdown_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FUSC_int57     ',swup_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FDSC_int57     ',swdown_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FUSC_int58     ',swup_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FDSC_int58     ',swdown_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FUSC_int59     ',swup_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FDSC_int59     ',swdown_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FUSC_int60     ',swup_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FDSC_int60     ',swdown_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FUSC_int61     ',swup_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FDSC_int61     ',swdown_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FUSC_int62     ',swup_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FDSC_int62     ',swdown_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FUSC_int63     ',swup_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FDSC_int63     ',swdown_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FUSC_int64     ',swup_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FDSC_int64     ',swdown_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FUSC_int65     ',swup_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FDSC_int65     ',swdown_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FUSC_int66     ',swup_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FDSC_int66     ',swdown_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FUSC_int67     ',swup_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FDSC_int67     ',swdown_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FUSC_int68     ',swup_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FDSC_int68     ',swdown_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FUSC_int69     ',swup_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FDSC_int69     ',swdown_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FUSC_int70     ',swup_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FDSC_int70     ',swdown_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FUSC_int71     ',swup_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FDSC_int71     ',swdown_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FUSC_int72     ',swup_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FDSC_int72     ',swdown_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FUSC_int73     ',swup_rad_spec_in(:,:,73), pcols, lchnk)
    call outfld('FDSC_int73     ',swdown_rad_spec_in(:,:,73), pcols, lchnk)

    call outfld('FUSC_toa_int01     ',swup_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FDSC_toa_int01     ',swdown_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FUSC_toa_int02     ',swup_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FDSC_toa_int02     ',swdown_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FUSC_toa_int03     ',swup_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FDSC_toa_int03     ',swdown_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FUSC_toa_int04     ',swup_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FDSC_toa_int04     ',swdown_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FUSC_toa_int05     ',swup_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FDSC_toa_int05     ',swdown_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FUSC_toa_int06     ',swup_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FDSC_toa_int06     ',swdown_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FUSC_toa_int07     ',swup_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FDSC_toa_int07     ',swdown_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FUSC_toa_int08     ',swup_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FDSC_toa_int08     ',swdown_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FUSC_toa_int09     ',swup_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FDSC_toa_int09     ',swdown_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FUSC_toa_int10     ',swup_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FDSC_toa_int10     ',swdown_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FUSC_toa_int11     ',swup_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FDSC_toa_int11     ',swdown_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FUSC_toa_int12     ',swup_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FDSC_toa_int12     ',swdown_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FUSC_toa_int13     ',swup_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FDSC_toa_int13     ',swdown_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FUSC_toa_int14     ',swup_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FDSC_toa_int14     ',swdown_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FUSC_toa_int15     ',swup_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FDSC_toa_int15     ',swdown_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FUSC_toa_int16     ',swup_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FDSC_toa_int16     ',swdown_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FUSC_toa_int17     ',swup_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FDSC_toa_int17     ',swdown_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FUSC_toa_int18     ',swup_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FDSC_toa_int18     ',swdown_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FUSC_toa_int19     ',swup_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FDSC_toa_int19     ',swdown_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FUSC_toa_int20     ',swup_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FDSC_toa_int20     ',swdown_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FUSC_toa_int21     ',swup_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FDSC_toa_int21     ',swdown_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FUSC_toa_int22     ',swup_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FDSC_toa_int22     ',swdown_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FUSC_toa_int23     ',swup_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FDSC_toa_int23     ',swdown_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FUSC_toa_int24     ',swup_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FDSC_toa_int24     ',swdown_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FUSC_toa_int25     ',swup_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FDSC_toa_int25     ',swdown_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FUSC_toa_int26     ',swup_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FDSC_toa_int26     ',swdown_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FUSC_toa_int27     ',swup_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FDSC_toa_int27     ',swdown_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FUSC_toa_int28     ',swup_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FDSC_toa_int28     ',swdown_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FUSC_toa_int29     ',swup_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FDSC_toa_int29     ',swdown_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FUSC_toa_int30     ',swup_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FDSC_toa_int30     ',swdown_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FUSC_toa_int31     ',swup_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FDSC_toa_int31     ',swdown_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FUSC_toa_int32     ',swup_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FDSC_toa_int32     ',swdown_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FUSC_toa_int33     ',swup_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FDSC_toa_int33     ',swdown_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FUSC_toa_int34     ',swup_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FDSC_toa_int34     ',swdown_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FUSC_toa_int35     ',swup_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FDSC_toa_int35     ',swdown_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FUSC_toa_int36     ',swup_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FDSC_toa_int36     ',swdown_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FUSC_toa_int37     ',swup_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FDSC_toa_int37     ',swdown_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FUSC_toa_int38     ',swup_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FDSC_toa_int38     ',swdown_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FUSC_toa_int39     ',swup_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FDSC_toa_int39     ',swdown_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FUSC_toa_int40     ',swup_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FDSC_toa_int40     ',swdown_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FUSC_toa_int41     ',swup_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FDSC_toa_int41     ',swdown_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FUSC_toa_int42     ',swup_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FDSC_toa_int42     ',swdown_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FUSC_toa_int43     ',swup_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FDSC_toa_int43     ',swdown_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FUSC_toa_int44     ',swup_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FDSC_toa_int44     ',swdown_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FUSC_toa_int45     ',swup_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FDSC_toa_int45     ',swdown_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FUSC_toa_int46     ',swup_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FDSC_toa_int46     ',swdown_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FUSC_toa_int47     ',swup_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FDSC_toa_int47     ',swdown_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FUSC_toa_int48     ',swup_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FDSC_toa_int48     ',swdown_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FUSC_toa_int49     ',swup_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FDSC_toa_int49     ',swdown_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FUSC_toa_int50     ',swup_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FDSC_toa_int50     ',swdown_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FUSC_toa_int51     ',swup_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FDSC_toa_int51     ',swdown_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FUSC_toa_int52     ',swup_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FDSC_toa_int52     ',swdown_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FUSC_toa_int53     ',swup_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FDSC_toa_int53     ',swdown_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FUSC_toa_int54     ',swup_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FDSC_toa_int54     ',swdown_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FUSC_toa_int55     ',swup_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FDSC_toa_int55     ',swdown_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FUSC_toa_int56     ',swup_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FDSC_toa_int56     ',swdown_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FUSC_toa_int57     ',swup_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FDSC_toa_int57     ',swdown_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FUSC_toa_int58     ',swup_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FDSC_toa_int58     ',swdown_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FUSC_toa_int59     ',swup_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FDSC_toa_int59     ',swdown_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FUSC_toa_int60     ',swup_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FDSC_toa_int60     ',swdown_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FUSC_toa_int61     ',swup_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FDSC_toa_int61     ',swdown_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FUSC_toa_int62     ',swup_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FDSC_toa_int62     ',swdown_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FUSC_toa_int63     ',swup_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FDSC_toa_int63     ',swdown_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FUSC_toa_int64     ',swup_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FDSC_toa_int64     ',swdown_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FUSC_toa_int65     ',swup_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FDSC_toa_int65     ',swdown_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FUSC_toa_int66     ',swup_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FDSC_toa_int66     ',swdown_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FUSC_toa_int67     ',swup_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FDSC_toa_int67     ',swdown_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FUSC_toa_int68     ',swup_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FDSC_toa_int68     ',swdown_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FUSC_toa_int69     ',swup_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FDSC_toa_int69     ',swdown_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FUSC_toa_int70     ',swup_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FDSC_toa_int70     ',swdown_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FUSC_toa_int71     ',swup_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FDSC_toa_int71     ',swdown_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FUSC_toa_int72     ',swup_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FDSC_toa_int72     ',swdown_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FUSC_toa_int73     ',swup_rad_spec_in(:,1,73), pcols, lchnk)
    call outfld('FDSC_toa_int73     ',swdown_rad_spec_in(:,1,73), pcols, lchnk)


    ! longwave
    call outfld('FULC_int01     ',lwup_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FDLC_int01     ',lwdown_rad_spec_in(:,:,1), pcols, lchnk)
    call outfld('FULC_int02     ',lwup_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FDLC_int02     ',lwdown_rad_spec_in(:,:,2), pcols, lchnk)
    call outfld('FULC_int03     ',lwup_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FDLC_int03     ',lwdown_rad_spec_in(:,:,3), pcols, lchnk)
    call outfld('FULC_int04     ',lwup_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FDLC_int04     ',lwdown_rad_spec_in(:,:,4), pcols, lchnk)
    call outfld('FULC_int05     ',lwup_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FDLC_int05     ',lwdown_rad_spec_in(:,:,5), pcols, lchnk)
    call outfld('FULC_int06     ',lwup_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FDLC_int06     ',lwdown_rad_spec_in(:,:,6), pcols, lchnk)
    call outfld('FULC_int07     ',lwup_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FDLC_int07     ',lwdown_rad_spec_in(:,:,7), pcols, lchnk)
    call outfld('FULC_int08     ',lwup_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FDLC_int08     ',lwdown_rad_spec_in(:,:,8), pcols, lchnk)
    call outfld('FULC_int09     ',lwup_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FDLC_int09     ',lwdown_rad_spec_in(:,:,9), pcols, lchnk)
    call outfld('FULC_int10     ',lwup_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FDLC_int10     ',lwdown_rad_spec_in(:,:,10), pcols, lchnk)
    call outfld('FULC_int11     ',lwup_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FDLC_int11     ',lwdown_rad_spec_in(:,:,11), pcols, lchnk)
    call outfld('FULC_int12     ',lwup_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FDLC_int12     ',lwdown_rad_spec_in(:,:,12), pcols, lchnk)
    call outfld('FULC_int13     ',lwup_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FDLC_int13     ',lwdown_rad_spec_in(:,:,13), pcols, lchnk)
    call outfld('FULC_int14     ',lwup_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FDLC_int14     ',lwdown_rad_spec_in(:,:,14), pcols, lchnk)
    call outfld('FULC_int15     ',lwup_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FDLC_int15     ',lwdown_rad_spec_in(:,:,15), pcols, lchnk)
    call outfld('FULC_int16     ',lwup_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FDLC_int16     ',lwdown_rad_spec_in(:,:,16), pcols, lchnk)
    call outfld('FULC_int17     ',lwup_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FDLC_int17     ',lwdown_rad_spec_in(:,:,17), pcols, lchnk)
    call outfld('FULC_int18     ',lwup_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FDLC_int18     ',lwdown_rad_spec_in(:,:,18), pcols, lchnk)
    call outfld('FULC_int19     ',lwup_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FDLC_int19     ',lwdown_rad_spec_in(:,:,19), pcols, lchnk)
    call outfld('FULC_int20     ',lwup_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FDLC_int20     ',lwdown_rad_spec_in(:,:,20), pcols, lchnk)
    call outfld('FULC_int21     ',lwup_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FDLC_int21     ',lwdown_rad_spec_in(:,:,21), pcols, lchnk)
    call outfld('FULC_int22     ',lwup_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FDLC_int22     ',lwdown_rad_spec_in(:,:,22), pcols, lchnk)
    call outfld('FULC_int23     ',lwup_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FDLC_int23     ',lwdown_rad_spec_in(:,:,23), pcols, lchnk)
    call outfld('FULC_int24     ',lwup_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FDLC_int24     ',lwdown_rad_spec_in(:,:,24), pcols, lchnk)
    call outfld('FULC_int25     ',lwup_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FDLC_int25     ',lwdown_rad_spec_in(:,:,25), pcols, lchnk)
    call outfld('FULC_int26     ',lwup_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FDLC_int26     ',lwdown_rad_spec_in(:,:,26), pcols, lchnk)
    call outfld('FULC_int27     ',lwup_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FDLC_int27     ',lwdown_rad_spec_in(:,:,27), pcols, lchnk)
    call outfld('FULC_int28     ',lwup_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FDLC_int28     ',lwdown_rad_spec_in(:,:,28), pcols, lchnk)
    call outfld('FULC_int29     ',lwup_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FDLC_int29     ',lwdown_rad_spec_in(:,:,29), pcols, lchnk)
    call outfld('FULC_int30     ',lwup_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FDLC_int30     ',lwdown_rad_spec_in(:,:,30), pcols, lchnk)
    call outfld('FULC_int31     ',lwup_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FDLC_int31     ',lwdown_rad_spec_in(:,:,31), pcols, lchnk)
    call outfld('FULC_int32     ',lwup_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FDLC_int32     ',lwdown_rad_spec_in(:,:,32), pcols, lchnk)
    call outfld('FULC_int33     ',lwup_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FDLC_int33     ',lwdown_rad_spec_in(:,:,33), pcols, lchnk)
    call outfld('FULC_int34     ',lwup_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FDLC_int34     ',lwdown_rad_spec_in(:,:,34), pcols, lchnk)
    call outfld('FULC_int35     ',lwup_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FDLC_int35     ',lwdown_rad_spec_in(:,:,35), pcols, lchnk)
    call outfld('FULC_int36     ',lwup_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FDLC_int36     ',lwdown_rad_spec_in(:,:,36), pcols, lchnk)
    call outfld('FULC_int37     ',lwup_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FDLC_int37     ',lwdown_rad_spec_in(:,:,37), pcols, lchnk)
    call outfld('FULC_int38     ',lwup_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FDLC_int38     ',lwdown_rad_spec_in(:,:,38), pcols, lchnk)
    call outfld('FULC_int39     ',lwup_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FDLC_int39     ',lwdown_rad_spec_in(:,:,39), pcols, lchnk)
    call outfld('FULC_int40     ',lwup_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FDLC_int40     ',lwdown_rad_spec_in(:,:,40), pcols, lchnk)
    call outfld('FULC_int41     ',lwup_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FDLC_int41     ',lwdown_rad_spec_in(:,:,41), pcols, lchnk)
    call outfld('FULC_int42     ',lwup_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FDLC_int42     ',lwdown_rad_spec_in(:,:,42), pcols, lchnk)
    call outfld('FULC_int43     ',lwup_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FDLC_int43     ',lwdown_rad_spec_in(:,:,43), pcols, lchnk)
    call outfld('FULC_int44     ',lwup_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FDLC_int44     ',lwdown_rad_spec_in(:,:,44), pcols, lchnk)
    call outfld('FULC_int45     ',lwup_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FDLC_int45     ',lwdown_rad_spec_in(:,:,45), pcols, lchnk)
    call outfld('FULC_int46     ',lwup_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FDLC_int46     ',lwdown_rad_spec_in(:,:,46), pcols, lchnk)
    call outfld('FULC_int47     ',lwup_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FDLC_int47     ',lwdown_rad_spec_in(:,:,47), pcols, lchnk)
    call outfld('FULC_int48     ',lwup_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FDLC_int48     ',lwdown_rad_spec_in(:,:,48), pcols, lchnk)
    call outfld('FULC_int49     ',lwup_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FDLC_int49     ',lwdown_rad_spec_in(:,:,49), pcols, lchnk)
    call outfld('FULC_int50     ',lwup_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FDLC_int50     ',lwdown_rad_spec_in(:,:,50), pcols, lchnk)
    call outfld('FULC_int51     ',lwup_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FDLC_int51     ',lwdown_rad_spec_in(:,:,51), pcols, lchnk)
    call outfld('FULC_int52     ',lwup_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FDLC_int52     ',lwdown_rad_spec_in(:,:,52), pcols, lchnk)
    call outfld('FULC_int53     ',lwup_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FDLC_int53     ',lwdown_rad_spec_in(:,:,53), pcols, lchnk)
    call outfld('FULC_int54     ',lwup_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FDLC_int54     ',lwdown_rad_spec_in(:,:,54), pcols, lchnk)
    call outfld('FULC_int55     ',lwup_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FDLC_int55     ',lwdown_rad_spec_in(:,:,55), pcols, lchnk)
    call outfld('FULC_int56     ',lwup_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FDLC_int56     ',lwdown_rad_spec_in(:,:,56), pcols, lchnk)
    call outfld('FULC_int57     ',lwup_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FDLC_int57     ',lwdown_rad_spec_in(:,:,57), pcols, lchnk)
    call outfld('FULC_int58     ',lwup_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FDLC_int58     ',lwdown_rad_spec_in(:,:,58), pcols, lchnk)
    call outfld('FULC_int59     ',lwup_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FDLC_int59     ',lwdown_rad_spec_in(:,:,59), pcols, lchnk)
    call outfld('FULC_int60     ',lwup_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FDLC_int60     ',lwdown_rad_spec_in(:,:,60), pcols, lchnk)
    call outfld('FULC_int61     ',lwup_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FDLC_int61     ',lwdown_rad_spec_in(:,:,61), pcols, lchnk)
    call outfld('FULC_int62     ',lwup_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FDLC_int62     ',lwdown_rad_spec_in(:,:,62), pcols, lchnk)
    call outfld('FULC_int63     ',lwup_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FDLC_int63     ',lwdown_rad_spec_in(:,:,63), pcols, lchnk)
    call outfld('FULC_int64     ',lwup_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FDLC_int64     ',lwdown_rad_spec_in(:,:,64), pcols, lchnk)
    call outfld('FULC_int65     ',lwup_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FDLC_int65     ',lwdown_rad_spec_in(:,:,65), pcols, lchnk)
    call outfld('FULC_int66     ',lwup_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FDLC_int66     ',lwdown_rad_spec_in(:,:,66), pcols, lchnk)
    call outfld('FULC_int67     ',lwup_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FDLC_int67     ',lwdown_rad_spec_in(:,:,67), pcols, lchnk)
    call outfld('FULC_int68     ',lwup_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FDLC_int68     ',lwdown_rad_spec_in(:,:,68), pcols, lchnk)
    call outfld('FULC_int69     ',lwup_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FDLC_int69     ',lwdown_rad_spec_in(:,:,69), pcols, lchnk)
    call outfld('FULC_int70     ',lwup_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FDLC_int70     ',lwdown_rad_spec_in(:,:,70), pcols, lchnk)
    call outfld('FULC_int71     ',lwup_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FDLC_int71     ',lwdown_rad_spec_in(:,:,71), pcols, lchnk)
    call outfld('FULC_int72     ',lwup_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FDLC_int72     ',lwdown_rad_spec_in(:,:,72), pcols, lchnk)
    call outfld('FULC_int73     ',lwup_rad_spec_in(:,:,73), pcols, lchnk)
    call outfld('FDLC_int73     ',lwdown_rad_spec_in(:,:,73), pcols, lchnk)

    call outfld('FULC_toa_int01     ',lwup_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FDLC_toa_int01     ',lwdown_rad_spec_in(:,1,1), pcols, lchnk)
    call outfld('FULC_toa_int02     ',lwup_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FDLC_toa_int02     ',lwdown_rad_spec_in(:,1,2), pcols, lchnk)
    call outfld('FULC_toa_int03     ',lwup_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FDLC_toa_int03     ',lwdown_rad_spec_in(:,1,3), pcols, lchnk)
    call outfld('FULC_toa_int04     ',lwup_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FDLC_toa_int04     ',lwdown_rad_spec_in(:,1,4), pcols, lchnk)
    call outfld('FULC_toa_int05     ',lwup_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FDLC_toa_int05     ',lwdown_rad_spec_in(:,1,5), pcols, lchnk)
    call outfld('FULC_toa_int06     ',lwup_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FDLC_toa_int06     ',lwdown_rad_spec_in(:,1,6), pcols, lchnk)
    call outfld('FULC_toa_int07     ',lwup_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FDLC_toa_int07     ',lwdown_rad_spec_in(:,1,7), pcols, lchnk)
    call outfld('FULC_toa_int08     ',lwup_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FDLC_toa_int08     ',lwdown_rad_spec_in(:,1,8), pcols, lchnk)
    call outfld('FULC_toa_int09     ',lwup_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FDLC_toa_int09     ',lwdown_rad_spec_in(:,1,9), pcols, lchnk)
    call outfld('FULC_toa_int10     ',lwup_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FDLC_toa_int10     ',lwdown_rad_spec_in(:,1,10), pcols, lchnk)
    call outfld('FULC_toa_int11     ',lwup_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FDLC_toa_int11     ',lwdown_rad_spec_in(:,1,11), pcols, lchnk)
    call outfld('FULC_toa_int12     ',lwup_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FDLC_toa_int12     ',lwdown_rad_spec_in(:,1,12), pcols, lchnk)
    call outfld('FULC_toa_int13     ',lwup_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FDLC_toa_int13     ',lwdown_rad_spec_in(:,1,13), pcols, lchnk)
    call outfld('FULC_toa_int14     ',lwup_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FDLC_toa_int14     ',lwdown_rad_spec_in(:,1,14), pcols, lchnk)
    call outfld('FULC_toa_int15     ',lwup_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FDLC_toa_int15     ',lwdown_rad_spec_in(:,1,15), pcols, lchnk)
    call outfld('FULC_toa_int16     ',lwup_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FDLC_toa_int16     ',lwdown_rad_spec_in(:,1,16), pcols, lchnk)
    call outfld('FULC_toa_int17     ',lwup_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FDLC_toa_int17     ',lwdown_rad_spec_in(:,1,17), pcols, lchnk)
    call outfld('FULC_toa_int18     ',lwup_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FDLC_toa_int18     ',lwdown_rad_spec_in(:,1,18), pcols, lchnk)
    call outfld('FULC_toa_int19     ',lwup_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FDLC_toa_int19     ',lwdown_rad_spec_in(:,1,19), pcols, lchnk)
    call outfld('FULC_toa_int20     ',lwup_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FDLC_toa_int20     ',lwdown_rad_spec_in(:,1,20), pcols, lchnk)
    call outfld('FULC_toa_int21     ',lwup_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FDLC_toa_int21     ',lwdown_rad_spec_in(:,1,21), pcols, lchnk)
    call outfld('FULC_toa_int22     ',lwup_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FDLC_toa_int22     ',lwdown_rad_spec_in(:,1,22), pcols, lchnk)
    call outfld('FULC_toa_int23     ',lwup_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FDLC_toa_int23     ',lwdown_rad_spec_in(:,1,23), pcols, lchnk)
    call outfld('FULC_toa_int24     ',lwup_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FDLC_toa_int24     ',lwdown_rad_spec_in(:,1,24), pcols, lchnk)
    call outfld('FULC_toa_int25     ',lwup_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FDLC_toa_int25     ',lwdown_rad_spec_in(:,1,25), pcols, lchnk)
    call outfld('FULC_toa_int26     ',lwup_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FDLC_toa_int26     ',lwdown_rad_spec_in(:,1,26), pcols, lchnk)
    call outfld('FULC_toa_int27     ',lwup_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FDLC_toa_int27     ',lwdown_rad_spec_in(:,1,27), pcols, lchnk)
    call outfld('FULC_toa_int28     ',lwup_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FDLC_toa_int28     ',lwdown_rad_spec_in(:,1,28), pcols, lchnk)
    call outfld('FULC_toa_int29     ',lwup_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FDLC_toa_int29     ',lwdown_rad_spec_in(:,1,29), pcols, lchnk)
    call outfld('FULC_toa_int30     ',lwup_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FDLC_toa_int30     ',lwdown_rad_spec_in(:,1,30), pcols, lchnk)
    call outfld('FULC_toa_int31     ',lwup_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FDLC_toa_int31     ',lwdown_rad_spec_in(:,1,31), pcols, lchnk)
    call outfld('FULC_toa_int32     ',lwup_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FDLC_toa_int32     ',lwdown_rad_spec_in(:,1,32), pcols, lchnk)
    call outfld('FULC_toa_int33     ',lwup_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FDLC_toa_int33     ',lwdown_rad_spec_in(:,1,33), pcols, lchnk)
    call outfld('FULC_toa_int34     ',lwup_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FDLC_toa_int34     ',lwdown_rad_spec_in(:,1,34), pcols, lchnk)
    call outfld('FULC_toa_int35     ',lwup_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FDLC_toa_int35     ',lwdown_rad_spec_in(:,1,35), pcols, lchnk)
    call outfld('FULC_toa_int36     ',lwup_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FDLC_toa_int36     ',lwdown_rad_spec_in(:,1,36), pcols, lchnk)
    call outfld('FULC_toa_int37     ',lwup_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FDLC_toa_int37     ',lwdown_rad_spec_in(:,1,37), pcols, lchnk)
    call outfld('FULC_toa_int38     ',lwup_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FDLC_toa_int38     ',lwdown_rad_spec_in(:,1,38), pcols, lchnk)
    call outfld('FULC_toa_int39     ',lwup_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FDLC_toa_int39     ',lwdown_rad_spec_in(:,1,39), pcols, lchnk)
    call outfld('FULC_toa_int40     ',lwup_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FDLC_toa_int40     ',lwdown_rad_spec_in(:,1,40), pcols, lchnk)
    call outfld('FULC_toa_int41     ',lwup_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FDLC_toa_int41     ',lwdown_rad_spec_in(:,1,41), pcols, lchnk)
    call outfld('FULC_toa_int42     ',lwup_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FDLC_toa_int42     ',lwdown_rad_spec_in(:,1,42), pcols, lchnk)
    call outfld('FULC_toa_int43     ',lwup_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FDLC_toa_int43     ',lwdown_rad_spec_in(:,1,43), pcols, lchnk)
    call outfld('FULC_toa_int44     ',lwup_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FDLC_toa_int44     ',lwdown_rad_spec_in(:,1,44), pcols, lchnk)
    call outfld('FULC_toa_int45     ',lwup_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FDLC_toa_int45     ',lwdown_rad_spec_in(:,1,45), pcols, lchnk)
    call outfld('FULC_toa_int46     ',lwup_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FDLC_toa_int46     ',lwdown_rad_spec_in(:,1,46), pcols, lchnk)
    call outfld('FULC_toa_int47     ',lwup_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FDLC_toa_int47     ',lwdown_rad_spec_in(:,1,47), pcols, lchnk)
    call outfld('FULC_toa_int48     ',lwup_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FDLC_toa_int48     ',lwdown_rad_spec_in(:,1,48), pcols, lchnk)
    call outfld('FULC_toa_int49     ',lwup_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FDLC_toa_int49     ',lwdown_rad_spec_in(:,1,49), pcols, lchnk)
    call outfld('FULC_toa_int50     ',lwup_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FDLC_toa_int50     ',lwdown_rad_spec_in(:,1,50), pcols, lchnk)
    call outfld('FULC_toa_int51     ',lwup_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FDLC_toa_int51     ',lwdown_rad_spec_in(:,1,51), pcols, lchnk)
    call outfld('FULC_toa_int52     ',lwup_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FDLC_toa_int52     ',lwdown_rad_spec_in(:,1,52), pcols, lchnk)
    call outfld('FULC_toa_int53     ',lwup_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FDLC_toa_int53     ',lwdown_rad_spec_in(:,1,53), pcols, lchnk)
    call outfld('FULC_toa_int54     ',lwup_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FDLC_toa_int54     ',lwdown_rad_spec_in(:,1,54), pcols, lchnk)
    call outfld('FULC_toa_int55     ',lwup_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FDLC_toa_int55     ',lwdown_rad_spec_in(:,1,55), pcols, lchnk)
    call outfld('FULC_toa_int56     ',lwup_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FDLC_toa_int56     ',lwdown_rad_spec_in(:,1,56), pcols, lchnk)
    call outfld('FULC_toa_int57     ',lwup_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FDLC_toa_int57     ',lwdown_rad_spec_in(:,1,57), pcols, lchnk)
    call outfld('FULC_toa_int58     ',lwup_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FDLC_toa_int58     ',lwdown_rad_spec_in(:,1,58), pcols, lchnk)
    call outfld('FULC_toa_int59     ',lwup_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FDLC_toa_int59     ',lwdown_rad_spec_in(:,1,59), pcols, lchnk)
    call outfld('FULC_toa_int60     ',lwup_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FDLC_toa_int60     ',lwdown_rad_spec_in(:,1,60), pcols, lchnk)
    call outfld('FULC_toa_int61     ',lwup_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FDLC_toa_int61     ',lwdown_rad_spec_in(:,1,61), pcols, lchnk)
    call outfld('FULC_toa_int62     ',lwup_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FDLC_toa_int62     ',lwdown_rad_spec_in(:,1,62), pcols, lchnk)
    call outfld('FULC_toa_int63     ',lwup_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FDLC_toa_int63     ',lwdown_rad_spec_in(:,1,63), pcols, lchnk)
    call outfld('FULC_toa_int64     ',lwup_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FDLC_toa_int64     ',lwdown_rad_spec_in(:,1,64), pcols, lchnk)
    call outfld('FULC_toa_int65     ',lwup_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FDLC_toa_int65     ',lwdown_rad_spec_in(:,1,65), pcols, lchnk)
    call outfld('FULC_toa_int66     ',lwup_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FDLC_toa_int66     ',lwdown_rad_spec_in(:,1,66), pcols, lchnk)
    call outfld('FULC_toa_int67     ',lwup_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FDLC_toa_int67     ',lwdown_rad_spec_in(:,1,67), pcols, lchnk)
    call outfld('FULC_toa_int68     ',lwup_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FDLC_toa_int68     ',lwdown_rad_spec_in(:,1,68), pcols, lchnk)
    call outfld('FULC_toa_int69     ',lwup_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FDLC_toa_int69     ',lwdown_rad_spec_in(:,1,69), pcols, lchnk)
    call outfld('FULC_toa_int70     ',lwup_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FDLC_toa_int70     ',lwdown_rad_spec_in(:,1,70), pcols, lchnk)
    call outfld('FULC_toa_int71     ',lwup_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FDLC_toa_int71     ',lwdown_rad_spec_in(:,1,71), pcols, lchnk)
    call outfld('FULC_toa_int72     ',lwup_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FDLC_toa_int72     ',lwdown_rad_spec_in(:,1,72), pcols, lchnk)
    call outfld('FULC_toa_int73     ',lwup_rad_spec_in(:,1,73), pcols, lchnk)
    call outfld('FDLC_toa_int73     ',lwdown_rad_spec_in(:,1,73), pcols, lchnk)

end subroutine outfld_spectral_flux_clearsky




end module spectral_output
