SUSWN Subroutine

subroutine SUSWN(KTSW, KSW)

Uses

  • proc~~suswn~~UsesGraph proc~suswn SUSWN module~yomhook yomhook proc~suswn->module~yomhook module~parkind1~2 PARKIND1 proc~suswn->module~parkind1~2 module~yomcst~3 YOMCST proc~suswn->module~yomcst~3 module~yoesw YOESW proc~suswn->module~yoesw module~yoerad yoerad proc~suswn->module~yoerad module~yomcst~3->module~parkind1~2 module~yoesw->module~parkind1~2

*** SUSW - INITIALIZE COMMON YOESW

  • INTERFACE. ---------- CALL *SUSW
    1.  CLEAR-SKY ABSORPTION COEFFICIENTS FOR N SPECTRAL INTERVALS
         --------------------------------------------------------
    

spectrally independent

    1.1  COEFFICIENTS FOR TWO SPECTRAL INTERVALS
          ---------------------------------------

DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING H2O: Pref=1000hPa, Tref=296K, Pdep=0.9 UMG: Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2) O3 : unchanged in interval 1, from HITRAN 92 in interval 4

1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)

Near-Infrared (0.69 - 4.0 Microns) is not sub-divided

0.68 - 4.00 Micron

    1.2  COEFFICIENTS FOR FOUR SPECTRAL INTERVALS
          ----------------------------------------

DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING H2O: Pref=1000hPa, Tref=296K, Pdep=0.9 UMG: Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2) O3 : unchanged in interval 1, from HITRAN 92 in interval 4

1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)

Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:

0.69 - 1.19 Micron

1.19 - 2.38 Microns

2.38 - 4.00 Microns

    1.3  COEFFICIENTS FOR SIX SPECTRAL INTERVALS
          ---------------------------------------

DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING H2O: Pref=1000hPa, Tref=296K, Pdep=0.9 UMG: Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2) O3 : unchanged in interval 1, from HITRAN 92 in interval 4

1st spectral interval: U.V. (0.18 - 0.25 Micron)

2nd spectral interval: U.V. (0.25 - 0.44 Micron)

3rd spectral interval: Visible (0.44 - 0.69 Micron)

Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:

0.69 - 1.19 Micron

UMG is O2 only

1.19 - 2.38 Microns

UMG is CO2 only

2.38 - 4.00 Microns

2.4   OPTICAL PARAMETERS FOR RAIN DROPS
       Savijarvi et al. (1996)

   4.    SET VALUES.
          -----------

   5.    PRINT VALUES.
          ------------

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KTSW
integer(kind=JPIM), intent(in) :: KSW

Calls

proc~~suswn~~CallsGraph proc~suswn SUSWN rhsra rhsra proc~suswn->rhsra rhsrc rhsrc proc~suswn->rhsrc rhsrf rhsrf proc~suswn->rhsrf rrasy rrasy proc~suswn->rrasy rhsrb rhsrb proc~suswn->rhsrb proc~dr_hook dr_hook proc~suswn->proc~dr_hook rromb rromb proc~suswn->rromb rhsre rhsre proc~suswn->rhsre rroma rroma proc~suswn->rroma rhsrd rhsrd proc~suswn->rhsrd

Contents