IndexRundeck: E6TomaF40Created: Sat May 18 03:30:40 EDT 2024

CLD_AER_CDNC_MOD

File: CLD_AER_CDNC.F90
Summary:
Author :
Version:

Subroutines:
cld_aer_cdnc_block0

cld_aer_cdnc_block1

cld_aer_cdnc_block2


Global Variables:
execute_bulk2m_driver : used from mo_bulk2m_driver_gcm

sntm : integer, parameter
Initial Value = 31
mkx : integer, parameter
Initial Value = 1
mw0 : real*8, parameter
Initial Value = 2.094395148947515E-15
mi0 : real*8, parameter
Initial Value = 2.094395148947515E-15
lscm : logical, parameter
Initial Value = .false.
wscm : logical, parameter
Initial Value = .false.
tiny : real(8), parameter
Initial Value = 1.0D-30
tk0 : real*8, dimension(mkx)

qk0 : real*8, dimension(mkx)

pk0 : real*8, dimension(mkx)

w0 : real*8, dimension(mkx)

v0 : real*8, dimension(mkx)

r0 : real*8, dimension(mkx)

rablk : real*8, dimension(mkx)

tk0new : real*8, dimension(mkx)

qk0new : real*8, dimension(mkx)

ndrop : real*8, dimension(mkx)

mdrop : real*8, dimension(mkx)

ncrys : real*8, dimension(mkx)

mcrys : real*8, dimension(mkx)

nrain : real*8, dimension(mkx)

mrain : real*8, dimension(mkx)

mtau : real*8, dimension(mkx)

rtau : real*8, dimension(mkx)

ctau : real*8, dimension(mkx)

dtau : real*8, dimension(mkx)

qrarray : real*8, dimension(5)

row : real*8

mr0 : real*8

piby6 : real*8

vrain : real*8, dimension(mkx)

ndrop_old : real*8, dimension(mkx)

mdrop_old : real*8, dimension(mkx)

ndrop_new : real*8, dimension(mkx)

mdrop_new : real*8, dimension(mkx)

ndrop_blk : real*8, dimension(mkx)

mdrop_blk : real*8, dimension(mkx)

ndrop_res : real*8, dimension(mkx)

mdrop_res : real*8, dimension(mkx)

ncrys_old : real*8, dimension(mkx)

mcrys_old : real*8, dimension(mkx)

ncrys_new : real*8, dimension(mkx)

mcrys_new : real*8, dimension(mkx)

ncrys_blk : real*8, dimension(mkx)

mcrys_blk : real*8, dimension(mkx)

ncrys_res : real*8, dimension(mkx)

mcrys_res : real*8, dimension(mkx)

npccn : real*8, dimension(mkx)

nprc : real*8, dimension(mkx)

nnuccc : real*8, dimension(mkx)

nnucci : real*8, dimension(mkx)

mpccn : real*8, dimension(mkx)

mprc : real*8, dimension(mkx)

mnuccc : real*8, dimension(mkx)

mnucci : real*8, dimension(mkx)

nnuccd : real*8, dimension(mkx)

nnucmd : real*8, dimension(mkx)

nnucmt : real*8, dimension(mkx)

mnuccd : real*8, dimension(mkx)

mnucmd : real*8, dimension(mkx)

mnucmt : real*8, dimension(mkx)

nc_tnd : real*8, dimension(mkx)

qc_tnd : real*8, dimension(mkx)

ni_tnd : real*8, dimension(mkx)

qi_tnd : real*8, dimension(mkx)

nc_tot : real*8, dimension(mkx)

qc_tot : real*8, dimension(mkx)

ni_tot : real*8, dimension(mkx)

qi_tot : real*8, dimension(mkx)

dtb2m : real*8

qaut_b2m : real*8

newcdnc : real*8

oldcdnc : real*8

dcld : real*8

ldummy : logical
Initial Value = .false.
nm : integer

iuo : integer
Initial Value = 801

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS NASA Privacy PolicyAccessibility