Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

isccp_cloud_types

Module:

File: CLOUDS2.F90

Summary: ISCCP_CLOUD_TYPES calculate isccp cloud diagnostics in a column
Author : Gavin Schmidt
Version: 2.0 (from isccp version 3.5)

---

Declaration:

subroutine isccp_cloud_types(sunlit, pfull &

Variables:

wtmair : used from constant

Initial Value = >mair

navo : used from constant

Initial Value = >avog

bygrav : used from constant

bymrat : used from constant

randu : used from random

nlev : used from resolution

Initial Value = >lm

qcheck : used from model_com

tautab : used from clouds

invtau : used from clouds

ncol : used from clouds_com

emsfc_lw : real*8, parameter

longwave emissivity of surface at 10.5 microns
Initial Value = 0.99d0

pc1bylam : real*8, parameter

Planck constant c1 by wavelength (10.5 microns)
Initial Value = 1.439d0/10.5d-4

boxarea : real*8, parameter

fractional area of each sub-grid scale box
Initial Value = 1d0/ncol

t0 : real*8, parameter

ave temp (K)
Initial Value = 296.

t0bypstd : real*8, parameter

ave temp by sea level press
Initial Value = t0/1.013250d6

bywc : real*8, parameter

Initial Value = 1./2.56d0

byic : real*8, parameter

Initial Value = 1./2.13d0

isccp_taumin : real*8, parameter

Initial Value = 0.3d0

npoints : integer, parameter

Initial Value = 1

sunlit : integer, dimension(npoints)

pfull : real*8, dimension(npoints, nlev)

phalf : real*8, dimension(npoints, nlev+1)

qv : real*8, dimension(npoints, nlev)

cc : real*8, dimension(npoints, nlev)

conv : real*8, dimension(npoints, nlev)

dtau_s : real*8, dimension(npoints, nlev)

dtau_c : real*8, dimension(npoints, nlev)

top_height : integer, parameter

Initial Value = 1

overlap : integer, parameter

Initial Value = 3

skt : real*8, dimension(npoints)

at : real*8, dimension(npoints, nlev)

dem_s : real*8, dimension(npoints, nlev)

dem_c : real*8, dimension(npoints, nlev)

itrop : integer, dimension(npoints)

fq_isccp : real*8, dimension(npoints, 7, 7)

totalcldarea : real*8, dimension(npoints)

nbox : integer, dimension(npoints)

meanptop : real*8, dimension(npoints)

meantaucld : real*8, dimension(npoints)

boxtau : real*8, dimension(npoints, ncol)

boxptop : real*8, dimension(npoints, ncol)

jerr : integer

frac_out : real*8, dimension(npoints, ncol, nlev)

tca : real*8, dimension(npoints, 0:nlev)

cca : real*8, dimension(npoints, nlev)

threshold : real*8, dimension(npoints, ncol)

maxocc : real*8, dimension(npoints, ncol)

maxosc : real*8, dimension(npoints, ncol)

boxpos : real*8, dimension(npoints, ncol)

threshold_min : real*8, dimension(npoints, ncol)

dem : real*8, dimension(npoints, ncol)

bb : real*8, dimension(npoints)

ran : real*8, dimension(npoints)

ptrop : real*8, dimension(npoints)

attrop : real*8, dimension(npoints)

atmax : real*8, dimension(npoints)

atmin : real*8, dimension(npoints)

btcmin : real*8, dimension(npoints)

transmax : real*8, dimension(npoints)

i : integer

j : integer

ilev : integer

ibox : integer

ipres : integer, dimension(npoints)

itau : integer, dimension(npoints)

ilev2 : integer

acc : integer, dimension(nlev, ncol)

match : integer, dimension(npoints, nlev-1)

nmatch : integer, dimension(npoints)

levmatch : integer, dimension(npoints, ncol)

fluxtop_clrsky : real*8, dimension(npoints)

trans_layers_above_clrsky : real*8, dimension(npoints)

taumin : real*8, dimension(npoints)

dem_wv : real*8, dimension(npoints, nlev)

press : real*8, dimension(npoints)

dpress : real*8, dimension(npoints)

atmden : real*8, dimension(npoints)

rvh20 : real*8, dimension(npoints)

wk : real*8, dimension(npoints)

rhoave : real*8, dimension(npoints)

rh20s : real*8, dimension(npoints)

rfrgn : real*8, dimension(npoints)

tmpexp : real*8, dimension(npoints)

tauwv : real*8, dimension(npoints)

cchar : character*1, dimension(6)

cchar_realtops : character*1, dimension(6)

icycle : integer

tau : real*8, dimension(npoints, ncol)

box_cloudy : logical, dimension(npoints, ncol)

tb : real*8, dimension(npoints, ncol)

ptop : real*8, dimension(npoints, ncol)

emcld : real*8, dimension(npoints, ncol)

fluxtop : real*8, dimension(npoints, ncol)

trans_layers_above : real*8, dimension(npoints, ncol)

fluxtopinit : real*8, dimension(npoints)

tauir : real*8, dimension(npoints)

meanalbedocld : real*8, dimension(npoints)

albedocld : real*8, dimension(npoints, ncol)

rangevec : integer, dimension(npoints)

rangeerror : integer

tauchk : real*8

xx : real*8