CAM
Functions/Subroutines | Variables
cospsimulator_intr Module Reference

Functions/Subroutines

subroutine setcospvalues (Nlr_in, use_vgrid_in, csat_vgrid_in, Ncolumns_in, docosp_in, cosp_nradsteps_in)
 
subroutine, public cospsimulator_intr_readnl (nlfile)
 
subroutine, public cospsimulator_intr_register
 
subroutine, public cospsimulator_intr_init
 
subroutine, public cospsimulator_intr_run (state, pbuf, cam_in, emis, coszrs, cliqwp_in, cicewp_in, cld_swtau_in, snow_tau_in, snow_emis_in)
 

Variables

logical, public docosp = .false.
 
integer, public cosp_nradsteps = 1
 
integer, parameter nprs_cosp = 7
 
integer, parameter ntau_cosp = 7
 
integer, parameter ntau_cosp_modis = 6
 
integer, parameter ndbze_cosp = 15
 
integer, parameter nsr_cosp = 15
 
integer, parameter nhtmisr_cosp = 16
 
integer, parameter nbnds_cosp = 2
 
integer, parameter nsza_cosp = 5
 
integer, parameter nhtml_cosp = pver
 
integer nscol_cosp
 
integer nht_cosp
 
real(r8), dimension(nprs_cosp+1), parameter prslim_cosp_1d = (/1000._r8, 800._r8, 680._r8, 560._r8, 440._r8,310._r8,180._r8,0._r8/)
 
real(r8), dimension(ntau_cosp+1), parameter taulim_cosp_1d = (/0._r8, 0.3_r8, 1.3_r8, 3.6_r8, 9.4_r8, 23._r8, 60._r8, 379._r8/)
 
real(r8), dimension(ntau_cosp_modis+1), parameter taulim_cosp_modis_1d = (/0.3_r8, 1.3_r8, 3.6_r8, 9.4_r8, 23._r8, 60._r8, 100000._r8/)
 
real(r8), dimension(ndbze_cosp+1), parameter dbzelim_cosp_1d = (/-50._r8, -45._r8, -40._r8, -35._r8, -30._r8, -25._r8, -20._r8, -15._r8, -10.0_r8, -5.0_r8, 0.0_r8, 5.0_r8, 10._r8, 15._r8, 20._r8, 25._r8/)
 
real(r8), dimension(nsr_cosp+1), parameter srlim_cosp_1d = (/0.01_r8, 1.2_r8, 3.0_r8, 5.0_r8, 7.0_r8, 10.0_r8, 15.0_r8, 20.0_r8, 25.0_r8, 30.0_r8, 40.0_r8, 50.0_r8, 60.0_r8, 80.0_r8, 999.0_r8, 1009.0_r8/)
 
real(r8), dimension(nhtmisr_cosp+1), parameter htmisrlim_cosp_1d = (/-99.0_r8, 0.0_r8, 0.5_r8, 1.0_r8, 1.5_r8, 2.0_r8, 2.5_r8, 3.0_r8, 4.0_r8, 5.0_r8, 7.0_r8, 9.0_r8, 11.0_r8, 13.0_r8, 15.0_r8, 17.0_r8, 99.0_r8/)
 
real(r8), dimension(nsza_cosp), target sza_cosp = (/0.0_r8, 15.0_r8, 30.0_r8, 45.0_r8, 60.0_r8/)
 
real(r8), dimension(2, nprs_cosp), target prslim_cosp
 
real(r8), dimension(2, ntau_cosp), target taulim_cosp
 
real(r8), dimension(2, ntau_cosp_modis), target taulim_cosp_modis
 
real(r8), dimension(2, ndbze_cosp), target dbzelim_cosp
 
real(r8), dimension(2, nsr_cosp), target srlim_cosp
 
real(r8), dimension(2, nhtmisr_cosp), target htmisrlim_cosp
 
real(r8), dimension(nprs_cosp), target prsmid_cosp
 
real(r8), dimension(ntau_cosp), target taumid_cosp
 
real(r8), dimension(ntau_cosp_modis), target taumid_cosp_modis
 
real(r8), dimension(ndbze_cosp), target dbzemid_cosp
 
real(r8), dimension(nsr_cosp), target srmid_cosp
 
real(r8), dimension(nhtmisr_cosp), target htmisrmid_cosp
 
real(r8), dimension(nhtml_cosp) htmlmid_cosp
 
integer, dimension(nprs_cosp *ntau_cosp) prstau_cosp
 
integer, dimension(nprs_cosp *ntau_cosp_modis) prstau_cosp_modis
 
integer, dimension(nhtmisr_cosp *ntau_cosp) htmisrtau_cosp
 
real(r8), dimension(nprs_cosp *ntau_cosp) prstau_prsmid_cosp
 
real(r8), dimension(nprs_cosp *ntau_cosp) prstau_taumid_cosp
 
real(r8), dimension(nprs_cosp *ntau_cosp_modis) prstau_prsmid_cosp_modis
 
real(r8), dimension(nprs_cosp *ntau_cosp_modis) prstau_taumid_cosp_modis
 
real(r8), dimension(nhtmisr_cosp *ntau_cosp) htmisrtau_htmisrmid_cosp
 
real(r8), dimension(nhtmisr_cosp *ntau_cosp) htmisrtau_taumid_cosp
 
real(r8), dimension(:,:), allocatable, target htlim_cosp
 
real(r8), dimension(:), allocatable htlim_cosp_1d
 
real(r8), dimension(:), allocatable, target htmid_cosp
 
integer, dimension(:), allocatable, target scol_cosp
 
integer, dimension(:), allocatable htdbze_cosp
 
integer, dimension(:), allocatable htsr_cosp
 
integer, dimension(:), allocatable htmlscol_cosp
 
real(r8), dimension(:), allocatable htdbze_htmid_cosp
 
real(r8), dimension(:), allocatable, public htdbze_dbzemid_cosp
 
real(r8), dimension(:), allocatable htsr_htmid_cosp
 
real(r8), dimension(:), allocatable htsr_srmid_cosp
 
real(r8), dimension(:), allocatable htmlscol_htmlmid_cosp
 
real(r8), dimension(:), allocatable htmlscol_scol_cosp
 
logical cosp_sample_atrain = .false.
 
character(len=256) cosp_atrainorbitdata
 
logical cosp_amwg = .false.
 
logical cosp_lite = .false.
 
logical cosp_passive = .false.
 
logical cosp_active = .false.
 
logical cosp_isccp = .false.
 
logical cosp_cfmip_3hr = .false.
 
logical cosp_cfmip_da = .false.
 
logical cosp_cfmip_off = .false.
 
logical cosp_cfmip_mon = .false.
 
logical cosp_lradar_sim = .false.
 
logical cosp_llidar_sim = .false.
 
logical cosp_lisccp_sim = .false.
 
logical cosp_lmisr_sim = .false.
 
logical cosp_lmodis_sim = .false.
 
logical cosp_histfile_aux = .false.
 
logical cosp_lfrac_out = .false.
 
logical cosp_runall = .false.
 
integer cosp_ncolumns = 50
 
integer cosp_histfile_num =1
 
integer cosp_histfile_aux_num =-1
 
logical lradar_sim = .false.
 
logical llidar_sim = .false.
 
logical lisccp_sim = .false.
 
logical lmisr_sim = .false.
 
logical lmodis_sim = .false.
 
logical lrttov_sim = .false.
 
logical lfrac_out = .false.
 
logical lalbisccp = .false.
 
logical latb532 = .false.
 
logical lboxptopisccp = .false.
 
logical lboxtauisccp = .false.
 
logical lcfad_dbze94 = .false.
 
logical lcfad_lidarsr532 = .false.
 
logical lclcalipso = .false.
 
logical lclhcalipso = .false.
 
logical lclisccp2 = .false.
 
logical lcllcalipso = .false.
 
logical lclmcalipso = .false.
 
logical lcltcalipso = .false.
 
logical lclcalipsoliq = .false.
 
logical lclcalipsoice = .false.
 
logical lclcalipsoun = .false.
 
logical lclcalipsotmp = .false.
 
logical lclcalipsotmpliq = .false.
 
logical lclcalipsotmpice = .false.
 
logical lclcalipsotmpun = .false.
 
logical lcltcalipsoliq = .false.
 
logical lcltcalipsoice = .false.
 
logical lcltcalipsoun = .false.
 
logical lclhcalipsoliq = .false.
 
logical lclhcalipsoice = .false.
 
logical lclhcalipsoun = .false.
 
logical lclmcalipsoliq = .false.
 
logical lclmcalipsoice = .false.
 
logical lclmcalipsoun = .false.
 
logical lcllcalipsoliq = .false.
 
logical lcllcalipsoice = .false.
 
logical lcllcalipsoun = .false.
 
logical lctpisccp = .false.
 
logical ldbze94 = .false.
 
logical lcltradar = .false.
 
logical lcltradar2 = .false.
 
logical ltauisccp = .false.
 
logical ltclisccp = .false.
 
logical lparasol_refl = .false.
 
logical lclmisr = .false.
 
logical lmeantbisccp = .false.
 
logical lmeantbclrisccp = .false.
 
logical lclcalipso2 = .false.
 
logical lcltlidarradar = .false.
 
logical lbeta_mol532 = .false.
 
logical ltoffset = .false.
 
logical lcltmodis = .false.
 
logical lclwmodis = .false.
 
logical lclimodis = .false.
 
logical lclhmodis = .false.
 
logical lclmmodis = .false.
 
logical lcllmodis = .false.
 
logical ltautmodis = .false.
 
logical ltauwmodis = .false.
 
logical ltauimodis = .false.
 
logical ltautlogmodis = .false.
 
logical ltauwlogmodis = .false.
 
logical ltauilogmodis = .false.
 
logical lreffclwmodis = .false.
 
logical lreffclimodis = .false.
 
logical lpctmodis = .false.
 
logical llwpmodis = .false.
 
logical liwpmodis = .false.
 
logical lclmodis = .false.
 
logical ltbrttov = .false.
 
integer, parameter npoints_it = 10000
 
integer ncolumns = 50
 
integer nlr = 40
 
logical use_vgrid = .true.
 
logical csat_vgrid = .true.
 
real(r8) radar_freq = 94.0_r8
 
integer surface_radar = 0
 
integer use_mie_tables = 0
 
integer use_gas_abs = 1
 
integer do_ray = 0
 
integer melt_lay = 0
 
real(r8) k2 = -1
 
integer, parameter nprmts_max_hydro = 12
 
integer, parameter naero = 1
 
integer, parameter nprmts_max_aero = 1
 
integer lidar_ice_type = 0
 
integer, parameter overlap = 3
 
integer isccp_topheight = 1
 
integer isccp_topheight_direction = 2
 
integer, parameter platform = 1
 
integer, parameter satellite = 15
 
integer, parameter instrument = 0
 
integer, parameter nchannels = 8
 
integer, dimension(nchannels), parameter channels = (/1,3,5,6,8,10,11,13/)
 
real(r8), dimension(nchannels), parameter surfem = (/0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8/)
 
real(r8), parameter zenang = 50._r8
 
real(r8), parameter co = 2.098e-07_r8
 
integer, parameter nhydro = 9
 
logical, dimension(:), allocatable first_run_cosp
 
logical, dimension(:,:), allocatable run_cosp
 
integer, parameter norbitdata = 9866324
 
real(r8), dimension(:), allocatable atrainlat
 
real(r8), dimension(:), allocatable atrainlon
 
integer, dimension(:), allocatable atrainday
 
integer, dimension(:), allocatable atrainhr
 
integer, dimension(:), allocatable atrainmin
 
integer, dimension(:), allocatable atrainsec
 
integer idxas = 0
 
integer cld_idx
 
integer concld_idx
 
integer lsreffrain_idx
 
integer lsreffsnow_idx
 
integer cvreffliq_idx
 
integer cvreffice_idx
 
integer dpcldliq_idx
 
integer dpcldice_idx
 
integer shcldliq_idx
 
integer shcldice_idx
 
integer shcldliq1_idx
 
integer shcldice1_idx
 
integer dpflxprc_idx
 
integer dpflxsnw_idx
 
integer shflxprc_idx
 
integer shflxsnw_idx
 
integer lsflxprc_idx
 
integer lsflxsnw_idx
 
integer rei_idx
 
integer rel_idx
 

Function/Subroutine Documentation

◆ cospsimulator_intr_init()

subroutine, public cospsimulator_intr::cospsimulator_intr_init ( )
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cospsimulator_intr_readnl()

subroutine, public cospsimulator_intr::cospsimulator_intr_readnl ( character(len=*), intent(in)  nlfile)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cospsimulator_intr_register()

subroutine, public cospsimulator_intr::cospsimulator_intr_register ( )
Here is the caller graph for this function:

◆ cospsimulator_intr_run()

subroutine, public cospsimulator_intr::cospsimulator_intr_run ( type(physics_state), intent(in), target  state,
type(physics_buffer_desc), dimension(:), pointer  pbuf,
type(cam_in_t), intent(in)  cam_in,
real(r8), dimension(pcols,pver), intent(in)  emis,
real(r8), dimension(pcols), intent(in)  coszrs,
real(r8), dimension(pcols,pver), intent(in), optional  cliqwp_in,
real(r8), dimension(pcols,pver), intent(in), optional  cicewp_in,
real(r8), dimension(pcols,pver), intent(in), optional  cld_swtau_in,
real(r8), dimension(pcols,pver), intent(in), optional  snow_tau_in,
real(r8), dimension(pcols,pver), intent(in), optional  snow_emis_in 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ setcospvalues()

subroutine cospsimulator_intr::setcospvalues ( integer, intent(in)  Nlr_in,
logical, intent(in)  use_vgrid_in,
logical, intent(in)  csat_vgrid_in,
integer, intent(in)  Ncolumns_in,
logical, intent(in)  docosp_in,
integer, intent(in)  cosp_nradsteps_in 
)
private
Here is the caller graph for this function:

Variable Documentation

◆ atrainday

integer, dimension(:), allocatable cospsimulator_intr::atrainday
private

◆ atrainhr

integer, dimension(:), allocatable cospsimulator_intr::atrainhr
private

◆ atrainlat

real(r8), dimension(:), allocatable cospsimulator_intr::atrainlat
private

◆ atrainlon

real(r8), dimension(:), allocatable cospsimulator_intr::atrainlon
private

◆ atrainmin

integer, dimension(:), allocatable cospsimulator_intr::atrainmin
private

◆ atrainsec

integer, dimension(:), allocatable cospsimulator_intr::atrainsec
private

◆ channels

integer, dimension(nchannels), parameter cospsimulator_intr::channels = (/1,3,5,6,8,10,11,13/)
private

◆ cld_idx

integer cospsimulator_intr::cld_idx
private

◆ co

real(r8), parameter cospsimulator_intr::co = 2.098e-07_r8
private

◆ concld_idx

integer cospsimulator_intr::concld_idx
private

◆ cosp_active

logical cospsimulator_intr::cosp_active = .false.
private

◆ cosp_amwg

logical cospsimulator_intr::cosp_amwg = .false.
private

◆ cosp_atrainorbitdata

character(len=256) cospsimulator_intr::cosp_atrainorbitdata
private

◆ cosp_cfmip_3hr

logical cospsimulator_intr::cosp_cfmip_3hr = .false.
private

◆ cosp_cfmip_da

logical cospsimulator_intr::cosp_cfmip_da = .false.
private

◆ cosp_cfmip_mon

logical cospsimulator_intr::cosp_cfmip_mon = .false.
private

◆ cosp_cfmip_off

logical cospsimulator_intr::cosp_cfmip_off = .false.
private

◆ cosp_histfile_aux

logical cospsimulator_intr::cosp_histfile_aux = .false.
private

◆ cosp_histfile_aux_num

integer cospsimulator_intr::cosp_histfile_aux_num =-1
private

◆ cosp_histfile_num

integer cospsimulator_intr::cosp_histfile_num =1
private

◆ cosp_isccp

logical cospsimulator_intr::cosp_isccp = .false.
private

◆ cosp_lfrac_out

logical cospsimulator_intr::cosp_lfrac_out = .false.
private

◆ cosp_lisccp_sim

logical cospsimulator_intr::cosp_lisccp_sim = .false.
private

◆ cosp_lite

logical cospsimulator_intr::cosp_lite = .false.
private

◆ cosp_llidar_sim

logical cospsimulator_intr::cosp_llidar_sim = .false.
private

◆ cosp_lmisr_sim

logical cospsimulator_intr::cosp_lmisr_sim = .false.
private

◆ cosp_lmodis_sim

logical cospsimulator_intr::cosp_lmodis_sim = .false.
private

◆ cosp_lradar_sim

logical cospsimulator_intr::cosp_lradar_sim = .false.
private

◆ cosp_ncolumns

integer cospsimulator_intr::cosp_ncolumns = 50
private

◆ cosp_nradsteps

integer, public cospsimulator_intr::cosp_nradsteps = 1

◆ cosp_passive

logical cospsimulator_intr::cosp_passive = .false.
private

◆ cosp_runall

logical cospsimulator_intr::cosp_runall = .false.
private

◆ cosp_sample_atrain

logical cospsimulator_intr::cosp_sample_atrain = .false.
private

◆ csat_vgrid

logical cospsimulator_intr::csat_vgrid = .true.
private

◆ cvreffice_idx

integer cospsimulator_intr::cvreffice_idx
private

◆ cvreffliq_idx

integer cospsimulator_intr::cvreffliq_idx
private

◆ dbzelim_cosp

real(r8), dimension(2,ndbze_cosp), target cospsimulator_intr::dbzelim_cosp
private

◆ dbzelim_cosp_1d

real(r8), dimension(ndbze_cosp+1), parameter cospsimulator_intr::dbzelim_cosp_1d = (/-50._r8, -45._r8, -40._r8, -35._r8, -30._r8, -25._r8, -20._r8, -15._r8, -10.0_r8, -5.0_r8, 0.0_r8, 5.0_r8, 10._r8, 15._r8, 20._r8, 25._r8/)
private

◆ dbzemid_cosp

real(r8), dimension(ndbze_cosp), target cospsimulator_intr::dbzemid_cosp
private

◆ do_ray

integer cospsimulator_intr::do_ray = 0
private

◆ docosp

logical, public cospsimulator_intr::docosp = .false.

◆ dpcldice_idx

integer cospsimulator_intr::dpcldice_idx
private

◆ dpcldliq_idx

integer cospsimulator_intr::dpcldliq_idx
private

◆ dpflxprc_idx

integer cospsimulator_intr::dpflxprc_idx
private

◆ dpflxsnw_idx

integer cospsimulator_intr::dpflxsnw_idx
private

◆ first_run_cosp

logical, dimension(:), allocatable cospsimulator_intr::first_run_cosp
private

◆ htdbze_cosp

integer, dimension(:), allocatable cospsimulator_intr::htdbze_cosp
private

◆ htdbze_dbzemid_cosp

real(r8), dimension(:), allocatable, public cospsimulator_intr::htdbze_dbzemid_cosp

◆ htdbze_htmid_cosp

real(r8), dimension(:), allocatable cospsimulator_intr::htdbze_htmid_cosp
private

◆ htlim_cosp

real(r8), dimension(:,:), allocatable, target cospsimulator_intr::htlim_cosp
private

◆ htlim_cosp_1d

real(r8), dimension(:), allocatable cospsimulator_intr::htlim_cosp_1d
private

◆ htmid_cosp

real(r8), dimension(:), allocatable, target cospsimulator_intr::htmid_cosp
private

◆ htmisrlim_cosp

real(r8), dimension(2,nhtmisr_cosp), target cospsimulator_intr::htmisrlim_cosp
private

◆ htmisrlim_cosp_1d

real(r8), dimension(nhtmisr_cosp+1), parameter cospsimulator_intr::htmisrlim_cosp_1d = (/-99.0_r8, 0.0_r8, 0.5_r8, 1.0_r8, 1.5_r8, 2.0_r8, 2.5_r8, 3.0_r8, 4.0_r8, 5.0_r8, 7.0_r8, 9.0_r8, 11.0_r8, 13.0_r8, 15.0_r8, 17.0_r8, 99.0_r8/)
private

◆ htmisrmid_cosp

real(r8), dimension(nhtmisr_cosp), target cospsimulator_intr::htmisrmid_cosp
private

◆ htmisrtau_cosp

integer, dimension(nhtmisr_cosp*ntau_cosp) cospsimulator_intr::htmisrtau_cosp
private

◆ htmisrtau_htmisrmid_cosp

real(r8), dimension(nhtmisr_cosp*ntau_cosp) cospsimulator_intr::htmisrtau_htmisrmid_cosp
private

◆ htmisrtau_taumid_cosp

real(r8), dimension(nhtmisr_cosp*ntau_cosp) cospsimulator_intr::htmisrtau_taumid_cosp
private

◆ htmlmid_cosp

real(r8), dimension(nhtml_cosp) cospsimulator_intr::htmlmid_cosp
private

◆ htmlscol_cosp

integer, dimension(:), allocatable cospsimulator_intr::htmlscol_cosp
private

◆ htmlscol_htmlmid_cosp

real(r8), dimension(:), allocatable cospsimulator_intr::htmlscol_htmlmid_cosp
private

◆ htmlscol_scol_cosp

real(r8), dimension(:), allocatable cospsimulator_intr::htmlscol_scol_cosp
private

◆ htsr_cosp

integer, dimension(:), allocatable cospsimulator_intr::htsr_cosp
private

◆ htsr_htmid_cosp

real(r8), dimension(:), allocatable cospsimulator_intr::htsr_htmid_cosp
private

◆ htsr_srmid_cosp

real(r8), dimension(:), allocatable cospsimulator_intr::htsr_srmid_cosp
private

◆ idxas

integer cospsimulator_intr::idxas = 0
private

◆ instrument

integer, parameter cospsimulator_intr::instrument = 0
private

◆ isccp_topheight

integer cospsimulator_intr::isccp_topheight = 1
private

◆ isccp_topheight_direction

integer cospsimulator_intr::isccp_topheight_direction = 2
private

◆ k2

real(r8) cospsimulator_intr::k2 = -1
private

◆ lalbisccp

logical cospsimulator_intr::lalbisccp = .false.
private

◆ latb532

logical cospsimulator_intr::latb532 = .false.
private

◆ lbeta_mol532

logical cospsimulator_intr::lbeta_mol532 = .false.
private

◆ lboxptopisccp

logical cospsimulator_intr::lboxptopisccp = .false.
private

◆ lboxtauisccp

logical cospsimulator_intr::lboxtauisccp = .false.
private

◆ lcfad_dbze94

logical cospsimulator_intr::lcfad_dbze94 = .false.
private

◆ lcfad_lidarsr532

logical cospsimulator_intr::lcfad_lidarsr532 = .false.
private

◆ lclcalipso

logical cospsimulator_intr::lclcalipso = .false.
private

◆ lclcalipso2

logical cospsimulator_intr::lclcalipso2 = .false.
private

◆ lclcalipsoice

logical cospsimulator_intr::lclcalipsoice = .false.
private

◆ lclcalipsoliq

logical cospsimulator_intr::lclcalipsoliq = .false.
private

◆ lclcalipsotmp

logical cospsimulator_intr::lclcalipsotmp = .false.
private

◆ lclcalipsotmpice

logical cospsimulator_intr::lclcalipsotmpice = .false.
private

◆ lclcalipsotmpliq

logical cospsimulator_intr::lclcalipsotmpliq = .false.
private

◆ lclcalipsotmpun

logical cospsimulator_intr::lclcalipsotmpun = .false.
private

◆ lclcalipsoun

logical cospsimulator_intr::lclcalipsoun = .false.
private

◆ lclhcalipso

logical cospsimulator_intr::lclhcalipso = .false.
private

◆ lclhcalipsoice

logical cospsimulator_intr::lclhcalipsoice = .false.
private

◆ lclhcalipsoliq

logical cospsimulator_intr::lclhcalipsoliq = .false.
private

◆ lclhcalipsoun

logical cospsimulator_intr::lclhcalipsoun = .false.
private

◆ lclhmodis

logical cospsimulator_intr::lclhmodis = .false.
private

◆ lclimodis

logical cospsimulator_intr::lclimodis = .false.
private

◆ lclisccp2

logical cospsimulator_intr::lclisccp2 = .false.
private

◆ lcllcalipso

logical cospsimulator_intr::lcllcalipso = .false.
private

◆ lcllcalipsoice

logical cospsimulator_intr::lcllcalipsoice = .false.
private

◆ lcllcalipsoliq

logical cospsimulator_intr::lcllcalipsoliq = .false.
private

◆ lcllcalipsoun

logical cospsimulator_intr::lcllcalipsoun = .false.
private

◆ lcllmodis

logical cospsimulator_intr::lcllmodis = .false.
private

◆ lclmcalipso

logical cospsimulator_intr::lclmcalipso = .false.
private

◆ lclmcalipsoice

logical cospsimulator_intr::lclmcalipsoice = .false.
private

◆ lclmcalipsoliq

logical cospsimulator_intr::lclmcalipsoliq = .false.
private

◆ lclmcalipsoun

logical cospsimulator_intr::lclmcalipsoun = .false.
private

◆ lclmisr

logical cospsimulator_intr::lclmisr = .false.
private

◆ lclmmodis

logical cospsimulator_intr::lclmmodis = .false.
private

◆ lclmodis

logical cospsimulator_intr::lclmodis = .false.
private

◆ lcltcalipso

logical cospsimulator_intr::lcltcalipso = .false.
private

◆ lcltcalipsoice

logical cospsimulator_intr::lcltcalipsoice = .false.
private

◆ lcltcalipsoliq

logical cospsimulator_intr::lcltcalipsoliq = .false.
private

◆ lcltcalipsoun

logical cospsimulator_intr::lcltcalipsoun = .false.
private

◆ lcltlidarradar

logical cospsimulator_intr::lcltlidarradar = .false.
private

◆ lcltmodis

logical cospsimulator_intr::lcltmodis = .false.
private

◆ lcltradar

logical cospsimulator_intr::lcltradar = .false.
private

◆ lcltradar2

logical cospsimulator_intr::lcltradar2 = .false.
private

◆ lclwmodis

logical cospsimulator_intr::lclwmodis = .false.
private

◆ lctpisccp

logical cospsimulator_intr::lctpisccp = .false.
private

◆ ldbze94

logical cospsimulator_intr::ldbze94 = .false.
private

◆ lfrac_out

logical cospsimulator_intr::lfrac_out = .false.
private

◆ lidar_ice_type

integer cospsimulator_intr::lidar_ice_type = 0
private

◆ lisccp_sim

logical cospsimulator_intr::lisccp_sim = .false.
private

◆ liwpmodis

logical cospsimulator_intr::liwpmodis = .false.
private

◆ llidar_sim

logical cospsimulator_intr::llidar_sim = .false.
private

◆ llwpmodis

logical cospsimulator_intr::llwpmodis = .false.
private

◆ lmeantbclrisccp

logical cospsimulator_intr::lmeantbclrisccp = .false.
private

◆ lmeantbisccp

logical cospsimulator_intr::lmeantbisccp = .false.
private

◆ lmisr_sim

logical cospsimulator_intr::lmisr_sim = .false.
private

◆ lmodis_sim

logical cospsimulator_intr::lmodis_sim = .false.
private

◆ lparasol_refl

logical cospsimulator_intr::lparasol_refl = .false.
private

◆ lpctmodis

logical cospsimulator_intr::lpctmodis = .false.
private

◆ lradar_sim

logical cospsimulator_intr::lradar_sim = .false.
private

◆ lreffclimodis

logical cospsimulator_intr::lreffclimodis = .false.
private

◆ lreffclwmodis

logical cospsimulator_intr::lreffclwmodis = .false.
private

◆ lrttov_sim

logical cospsimulator_intr::lrttov_sim = .false.
private

◆ lsflxprc_idx

integer cospsimulator_intr::lsflxprc_idx
private

◆ lsflxsnw_idx

integer cospsimulator_intr::lsflxsnw_idx
private

◆ lsreffrain_idx

integer cospsimulator_intr::lsreffrain_idx
private

◆ lsreffsnow_idx

integer cospsimulator_intr::lsreffsnow_idx
private

◆ ltauilogmodis

logical cospsimulator_intr::ltauilogmodis = .false.
private

◆ ltauimodis

logical cospsimulator_intr::ltauimodis = .false.
private

◆ ltauisccp

logical cospsimulator_intr::ltauisccp = .false.
private

◆ ltautlogmodis

logical cospsimulator_intr::ltautlogmodis = .false.
private

◆ ltautmodis

logical cospsimulator_intr::ltautmodis = .false.
private

◆ ltauwlogmodis

logical cospsimulator_intr::ltauwlogmodis = .false.
private

◆ ltauwmodis

logical cospsimulator_intr::ltauwmodis = .false.
private

◆ ltbrttov

logical cospsimulator_intr::ltbrttov = .false.
private

◆ ltclisccp

logical cospsimulator_intr::ltclisccp = .false.
private

◆ ltoffset

logical cospsimulator_intr::ltoffset = .false.
private

◆ melt_lay

integer cospsimulator_intr::melt_lay = 0
private

◆ naero

integer, parameter cospsimulator_intr::naero = 1
private

◆ nbnds_cosp

integer, parameter cospsimulator_intr::nbnds_cosp = 2
private

◆ nchannels

integer, parameter cospsimulator_intr::nchannels = 8
private

◆ ncolumns

integer cospsimulator_intr::ncolumns = 50
private

◆ ndbze_cosp

integer, parameter cospsimulator_intr::ndbze_cosp = 15
private

◆ nht_cosp

integer cospsimulator_intr::nht_cosp
private

◆ nhtmisr_cosp

integer, parameter cospsimulator_intr::nhtmisr_cosp = 16
private

◆ nhtml_cosp

integer, parameter cospsimulator_intr::nhtml_cosp = pver
private

◆ nhydro

integer, parameter cospsimulator_intr::nhydro = 9
private

◆ nlr

integer cospsimulator_intr::nlr = 40
private

◆ norbitdata

integer, parameter cospsimulator_intr::norbitdata = 9866324
private

◆ npoints_it

integer, parameter cospsimulator_intr::npoints_it = 10000
private

◆ nprmts_max_aero

integer, parameter cospsimulator_intr::nprmts_max_aero = 1
private

◆ nprmts_max_hydro

integer, parameter cospsimulator_intr::nprmts_max_hydro = 12
private

◆ nprs_cosp

integer, parameter cospsimulator_intr::nprs_cosp = 7
private

◆ nscol_cosp

integer cospsimulator_intr::nscol_cosp
private

◆ nsr_cosp

integer, parameter cospsimulator_intr::nsr_cosp = 15
private

◆ nsza_cosp

integer, parameter cospsimulator_intr::nsza_cosp = 5
private

◆ ntau_cosp

integer, parameter cospsimulator_intr::ntau_cosp = 7
private

◆ ntau_cosp_modis

integer, parameter cospsimulator_intr::ntau_cosp_modis = 6
private

◆ overlap

integer, parameter cospsimulator_intr::overlap = 3
private

◆ platform

integer, parameter cospsimulator_intr::platform = 1
private

◆ prslim_cosp

real(r8), dimension(2,nprs_cosp), target cospsimulator_intr::prslim_cosp
private

◆ prslim_cosp_1d

real(r8), dimension(nprs_cosp+1), parameter cospsimulator_intr::prslim_cosp_1d = (/1000._r8, 800._r8, 680._r8, 560._r8, 440._r8,310._r8,180._r8,0._r8/)
private

◆ prsmid_cosp

real(r8), dimension(nprs_cosp), target cospsimulator_intr::prsmid_cosp
private

◆ prstau_cosp

integer, dimension(nprs_cosp*ntau_cosp) cospsimulator_intr::prstau_cosp
private

◆ prstau_cosp_modis

integer, dimension(nprs_cosp*ntau_cosp_modis) cospsimulator_intr::prstau_cosp_modis
private

◆ prstau_prsmid_cosp

real(r8), dimension(nprs_cosp*ntau_cosp) cospsimulator_intr::prstau_prsmid_cosp
private

◆ prstau_prsmid_cosp_modis

real(r8), dimension(nprs_cosp*ntau_cosp_modis) cospsimulator_intr::prstau_prsmid_cosp_modis
private

◆ prstau_taumid_cosp

real(r8), dimension(nprs_cosp*ntau_cosp) cospsimulator_intr::prstau_taumid_cosp
private

◆ prstau_taumid_cosp_modis

real(r8), dimension(nprs_cosp*ntau_cosp_modis) cospsimulator_intr::prstau_taumid_cosp_modis
private

◆ radar_freq

real(r8) cospsimulator_intr::radar_freq = 94.0_r8
private

◆ rei_idx

integer cospsimulator_intr::rei_idx
private

◆ rel_idx

integer cospsimulator_intr::rel_idx
private

◆ run_cosp

logical, dimension(:,:), allocatable cospsimulator_intr::run_cosp
private

◆ satellite

integer, parameter cospsimulator_intr::satellite = 15
private

◆ scol_cosp

integer, dimension(:), allocatable, target cospsimulator_intr::scol_cosp
private

◆ shcldice1_idx

integer cospsimulator_intr::shcldice1_idx
private

◆ shcldice_idx

integer cospsimulator_intr::shcldice_idx
private

◆ shcldliq1_idx

integer cospsimulator_intr::shcldliq1_idx
private

◆ shcldliq_idx

integer cospsimulator_intr::shcldliq_idx
private

◆ shflxprc_idx

integer cospsimulator_intr::shflxprc_idx
private

◆ shflxsnw_idx

integer cospsimulator_intr::shflxsnw_idx
private

◆ srlim_cosp

real(r8), dimension(2,nsr_cosp), target cospsimulator_intr::srlim_cosp
private

◆ srlim_cosp_1d

real(r8), dimension(nsr_cosp+1), parameter cospsimulator_intr::srlim_cosp_1d = (/0.01_r8, 1.2_r8, 3.0_r8, 5.0_r8, 7.0_r8, 10.0_r8, 15.0_r8, 20.0_r8, 25.0_r8, 30.0_r8, 40.0_r8, 50.0_r8, 60.0_r8, 80.0_r8, 999.0_r8, 1009.0_r8/)
private

◆ srmid_cosp

real(r8), dimension(nsr_cosp), target cospsimulator_intr::srmid_cosp
private

◆ surface_radar

integer cospsimulator_intr::surface_radar = 0
private

◆ surfem

real(r8), dimension(nchannels), parameter cospsimulator_intr::surfem = (/0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8,0.0_r8/)
private

◆ sza_cosp

real(r8), dimension(nsza_cosp), target cospsimulator_intr::sza_cosp = (/0.0_r8, 15.0_r8, 30.0_r8, 45.0_r8, 60.0_r8/)
private

◆ taulim_cosp

real(r8), dimension(2,ntau_cosp), target cospsimulator_intr::taulim_cosp
private

◆ taulim_cosp_1d

real(r8), dimension(ntau_cosp+1), parameter cospsimulator_intr::taulim_cosp_1d = (/0._r8, 0.3_r8, 1.3_r8, 3.6_r8, 9.4_r8, 23._r8, 60._r8, 379._r8/)
private

◆ taulim_cosp_modis

real(r8), dimension(2,ntau_cosp_modis), target cospsimulator_intr::taulim_cosp_modis
private

◆ taulim_cosp_modis_1d

real(r8), dimension(ntau_cosp_modis+1), parameter cospsimulator_intr::taulim_cosp_modis_1d = (/0.3_r8, 1.3_r8, 3.6_r8, 9.4_r8, 23._r8, 60._r8, 100000._r8/)
private

◆ taumid_cosp

real(r8), dimension(ntau_cosp), target cospsimulator_intr::taumid_cosp
private

◆ taumid_cosp_modis

real(r8), dimension(ntau_cosp_modis), target cospsimulator_intr::taumid_cosp_modis
private

◆ use_gas_abs

integer cospsimulator_intr::use_gas_abs = 1
private

◆ use_mie_tables

integer cospsimulator_intr::use_mie_tables = 0
private

◆ use_vgrid

logical cospsimulator_intr::use_vgrid = .true.
private

◆ zenang

real(r8), parameter cospsimulator_intr::zenang = 50._r8
private