Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

solar_ice_frac

Module: SEAICE

File: SEAICE.f

Summary: solar_ice_frac calculates the fraction of solar radiation transmitted through the ice, taking albedo into account, but assuming constant proportions of visible and near-ir. Based on Ebert et al, 1995.
Author : Gavin Schmidt
Version:

---

Declaration:

subroutine solar_ice_frac(snow, msi2, wetsnow, fsri, lmax)

Variables:

kiextnir1 : real*8, parameter

ice extinction coeff. for vis and nir (1/m)
Initial Value = 18.d0

kiextvis : real*8, parameter

ice extinction coeff. for vis and nir (1/m)
Initial Value = 1.5d0

msi2 : real*8, intent(in)

snow and second layer ice amounts (kg/m^2)

snow : real*8, intent(in)

snow and second layer ice amounts (kg/m^2)

wetsnow : logical, intent(in)

=true if snow is wet

lmax : integer, intent(in)

number of ice layers to do calculation for

fsri : real*8, dimension(lmax), intent(out)

fraction of solar energy reaching bottom of layer

ksextnir1 : real*8

snow extinction coeff. for vis and nir (1/m)

ksextvis : real*8

snow extinction coeff. for vis and nir (1/m)

fracnir :

fraction of absorbed solar in vis and nir

fracvis : real*8

fraction of absorbed solar in vis and nir

fsrvis : real*8, dimension(lmax)

fsrnir1 : real*8, dimension(lmax)

hice : real*8, dimension(lmax)

fracnir1 : real*8

dsnow : real*8

dsnow1 : real*8

hice12 : real*8

l : integer