SURDI Subroutine

subroutine SURDI()

Uses

  • proc~~surdi~3~~UsesGraph proc~surdi~3 SURDI module~parkind1~2 PARKIND1 proc~surdi~3->module~parkind1~2 module~yomhook yomhook proc~surdi~3->module~yomhook module~yoerdi YOERDI proc~surdi~3->module~yoerdi module~yoerdi->module~parkind1~2

*** SURDI - INITIALIZE COMMON YOERDI CONTROLLING RADINT

  • INTERFACE. ---------- CALL SURDI FROM SURAD ----- -----

Threshold for computing sunshine duration (W/m2) For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2. We take dry snow albedo as the representative value for non-summer months, and bare sea-ice as the representative value for summer months. The values for Antarctic are shifted six-months. All computations brought back to SUSWN

Concentration of the various trace gases (IPCC/SACC values for 1990) CO2 CH4 N2O CFC11 CFC12 353ppmv 1.72ppmv 310ppbv 280pptv 484pptv

Arguments

None

Calls

proc~~surdi~3~~CallsGraph proc~surdi~3 SURDI proc~dr_hook dr_hook proc~surdi~3->proc~dr_hook

Contents

None