SURDI Subroutine

subroutine SURDI()

Uses

  • proc~~surdi~~UsesGraph proc~surdi SURDI module~parkind1~2 PARKIND1 proc~surdi->module~parkind1~2 module~yomdyncore YOMDYNCORE proc~surdi->module~yomdyncore module~yomhook yomhook proc~surdi->module~yomhook module~yoerdi YOERDI proc~surdi->module~yoerdi module~yomdyncore->module~parkind1~2 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~~CallsGraph proc~surdi SURDI proc~dr_hook dr_hook proc~surdi->proc~dr_hook

Contents

None