Index

Rundeck: E6TomaF40

Created: Sat May 18 03:30:40 EDT 2024

cldsrf

Module: PHOTOLYSIS

File: TRCHEM_fastj2.f

Summary: CLDSRF to set cloud and surface properties
Author : UCI (see note above), GCM incorporation: Drew Shindell, modelEifications: Greg Faluvegi
Version:

---

Declaration:

subroutine cldsrf(nslon, nslat, surfacealbedo)

Variables:

rcloudfj : used from rad_com

cloudiness (optical depth) parameter, radiation to fastj
Initial Value = >rcld

im : used from resolution

nslat : integer, intent(in)

I and J spatial indicies passed from master chem

nslon : integer, intent(in)

I and J spatial indicies passed from master chem

surfacealbedo : real*8, intent(in)

odsum : real*8

Column optical depth

l : integer

k : integer

j : integer

odtot : real*8