MOD_COSP_TYPES Module


Uses

  • module~~mod_cosp_types~~UsesGraph module~mod_cosp_types MOD_COSP_TYPES module~mod_cosp_utils MOD_COSP_UTILS module~mod_cosp_types->module~mod_cosp_utils module~radar_simulator_types radar_simulator_types module~mod_cosp_types->module~radar_simulator_types module~mod_cosp_constants~2 MOD_COSP_CONSTANTS module~mod_cosp_types->module~mod_cosp_constants~2 module~mod_cosp_utils->module~mod_cosp_constants~2

Contents


Derived Types

type, public ::  COSP_CONFIG

Components

Type Visibility Attributes Name Initial
logical, public :: Lradar_sim
logical, public :: Llidar_sim
logical, public :: Lisccp_sim
logical, public :: Lmodis_sim
logical, public :: Lmisr_sim
logical, public :: Lrttov_sim
logical, public :: Lstats
logical, public :: Lwrite_output
logical, public :: Lalbisccp
logical, public :: Latb532
logical, public :: Lboxptopisccp
logical, public :: Lboxtauisccp
logical, public :: LcfadDbze94
logical, public :: LcfadLidarsr532
logical, public :: Lclcalipso2
logical, public :: Lclcalipso
logical, public :: Lclhcalipso
logical, public :: Lclisccp
logical, public :: Lcllcalipso
logical, public :: Lclmcalipso
logical, public :: Lcltcalipso
logical, public :: Lcltlidarradar
logical, public :: Lpctisccp
logical, public :: Ldbze94
logical, public :: Ltauisccp
logical, public :: Lcltisccp
logical, public :: Ltoffset
logical, public :: LparasolRefl
logical, public :: LclMISR
logical, public :: Lmeantbisccp
logical, public :: Lmeantbclrisccp
logical, public :: Lclcalipsoliq
logical, public :: Lclcalipsoice
logical, public :: Lclcalipsoun
logical, public :: Lclcalipsotmp
logical, public :: Lclcalipsotmpliq
logical, public :: Lclcalipsotmpice
logical, public :: Lclcalipsotmpun
logical, public :: Lcltcalipsoliq
logical, public :: Lcltcalipsoice
logical, public :: Lcltcalipsoun
logical, public :: Lclhcalipsoliq
logical, public :: Lclhcalipsoice
logical, public :: Lclhcalipsoun
logical, public :: Lclmcalipsoliq
logical, public :: Lclmcalipsoice
logical, public :: Lclmcalipsoun
logical, public :: Lcllcalipsoliq
logical, public :: Lcllcalipsoice
logical, public :: Lcllcalipsoun
logical, public :: Lfracout
logical, public :: LlidarBetaMol532
logical, public :: Ltbrttov
logical, public :: Lcltmodis
logical, public :: Lclwmodis
logical, public :: Lclimodis
logical, public :: Lclhmodis
logical, public :: Lclmmodis
logical, public :: Lcllmodis
logical, public :: Ltautmodis
logical, public :: Ltauwmodis
logical, public :: Ltauimodis
logical, public :: Ltautlogmodis
logical, public :: Ltauwlogmodis
logical, public :: Ltauilogmodis
logical, public :: Lreffclwmodis
logical, public :: Lreffclimodis
logical, public :: Lpctmodis
logical, public :: Llwpmodis
logical, public :: Liwpmodis
logical, public :: Lclmodis
logical, public :: Lcrimodis
logical, public :: Lcrlmodis
logical, public :: Lclopaquecalipso
logical, public :: Lclthincalipso
logical, public :: Lclzopaquecalipso
logical, public :: Lclcalipsoopaque
logical, public :: Lclcalipsothin
logical, public :: Lclcalipsozopaque
logical, public :: Lclcalipsoopacity
logical, public :: LprofSR
logical, public :: Lproftemp
character(len=32), public :: out_list(N_OUT_LIST)

type, public ::  COSP_RTTOV

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Nchan
real, public, pointer :: tbs(:,:)

type, public ::  COSP_MISR

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ntau
integer, public :: Nlevels
real, public, pointer :: fq_MISR(:,:,:)
real, public, pointer :: MISR_meanztop(:)
real, public, pointer :: MISR_cldarea(:)
real, public, pointer :: MISR_dist_model_layertops(:,:)

type, public ::  COSP_ISCCP

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
real, public, pointer :: fq_isccp(:,:,:)
real, public, pointer :: totalcldarea(:)
real, public, pointer :: meantb(:)
real, public, pointer :: meantbclr(:)
real, public, pointer :: meanptop(:)
real, public, pointer :: meantaucld(:)
real, public, pointer :: meanalbedocld(:)
real, public, pointer :: boxtau(:,:)
real, public, pointer :: boxptop(:,:)

type, public ::  COSP_VGRID

Components

Type Visibility Attributes Name Initial
logical, public :: use_vgrid
logical, public :: csat_vgrid
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nlvgrid
real, public, dimension(:), pointer :: z
real, public, dimension(:), pointer :: zl
real, public, dimension(:), pointer :: zu
real, public, dimension(:), pointer :: mz
real, public, dimension(:), pointer :: mzl
real, public, dimension(:), pointer :: mzu

type, public ::  COSP_SGLIDAR

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nhydro
integer, public :: Nrefl
real, public, dimension(:,:), pointer :: beta_mol
real, public, dimension(:,:), pointer :: temp_tot
real, public, dimension(:,:,:), pointer :: betaperp_tot
real, public, dimension(:,:,:), pointer :: beta_tot
real, public, dimension(:,:,:), pointer :: tau_tot
real, public, dimension(:,:,:), pointer :: refl

type, public ::  COSP_SGRADAR

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nhydro
real, public, dimension(:,:), pointer :: att_gas
real, public, dimension(:,:,:), pointer :: Ze_tot

type, public ::  COSP_RADARSTATS

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nhydro
real, public, dimension(:,:,:), pointer :: cfad_ze
real, public, dimension(:), pointer :: radar_lidar_tcc
real, public, dimension(:,:), pointer :: lidar_only_freq_cloud

type, public ::  COSP_LIDARSTATS

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nhydro
integer, public :: Nrefl
real, public, dimension(:), pointer :: srbval
real, public, dimension(:,:,:), pointer :: cfad_sr
real, public, dimension(:,:), pointer :: lidarcld
real, public, dimension(:,:), pointer :: proftemp
real, public, dimension(:,:), pointer :: cldlayer
real, public, dimension(:,:), pointer :: cldtype
real, public, dimension(:,:,:), pointer :: lidarcldphase
real, public, dimension(:,:,:), pointer :: lidarcldtype
real, public, dimension(:,:,:), pointer :: cldlayerphase
real, public, dimension(:,:,:), pointer :: lidarcldtmp
real, public, dimension(:,:), pointer :: parasolrefl
real, public, dimension(:,:,:), pointer :: profSR

type, public ::  COSP_SUBGRID

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nhydro
real, public, dimension(:,:,:), pointer :: prec_frac
real, public, dimension(:,:,:), pointer :: frac_out

type, public ::  COSP_SGHYDRO

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Ncolumns
integer, public :: Nlevels
integer, public :: Nhydro
real, public, dimension(:,:,:,:), pointer :: mr_hydro
real, public, dimension(:,:,:,:), pointer :: Reff
real, public, dimension(:,:,:,:), pointer :: Np

type, public ::  COSP_GRIDBOX

Components

Type Visibility Attributes Name Initial
integer, public :: Npoints
integer, public :: Nlevels
integer, public :: Ncolumns
integer, public :: Nhydro
integer, public :: Nprmts_max_hydro
integer, public :: Naero
integer, public :: Nprmts_max_aero
integer, public :: Npoints_it
double precision, public :: time
double precision, public :: time_bnds(2)
real, public :: radar_freq
real, public :: k2
integer, public :: surface_radar
integer, public :: use_mie_tables
integer, public :: use_gas_abs
integer, public :: do_ray
integer, public :: melt_lay
type(class_param), public :: hp
integer, public :: nsizes
integer, public :: lidar_ice_type
logical, public :: use_precipitation_fluxes
logical, public :: use_reff
real, public, dimension(:), pointer :: toffset
real, public, dimension(:), pointer :: longitude
real, public, dimension(:), pointer :: latitude
real, public, dimension(:,:), pointer :: zlev
real, public, dimension(:,:), pointer :: zlev_half
real, public, dimension(:,:), pointer :: dlev
real, public, dimension(:,:), pointer :: p
real, public, dimension(:,:), pointer :: ph
real, public, dimension(:,:), pointer :: T
real, public, dimension(:,:), pointer :: q
real, public, dimension(:,:), pointer :: sh
real, public, dimension(:,:), pointer :: dtau_s
real, public, dimension(:,:), pointer :: dtau_c
real, public, dimension(:,:), pointer :: dem_s
real, public, dimension(:,:), pointer :: dem_c
real, public, dimension(:,:), pointer :: mr_ozone
real, public, dimension(:), pointer :: land
real, public, dimension(:), pointer :: psfc
real, public, dimension(:), pointer :: sunlit
real, public, dimension(:), pointer :: skt
real, public, dimension(:), pointer :: u_wind
real, public, dimension(:), pointer :: v_wind
real, public, dimension(:,:), pointer :: tca
real, public, dimension(:,:), pointer :: cca
real, public, dimension(:,:), pointer :: rain_ls
real, public, dimension(:,:), pointer :: rain_cv
real, public, dimension(:,:), pointer :: snow_ls
real, public, dimension(:,:), pointer :: snow_cv
real, public, dimension(:,:), pointer :: grpl_ls
real, public, dimension(:,:,:), pointer :: mr_hydro
real, public, dimension(:,:), pointer :: dist_prmts_hydro
real, public, dimension(:,:,:), pointer :: Reff
real, public, dimension(:,:,:), pointer :: Np
real, public, dimension(:,:,:), pointer :: conc_aero
integer, public, dimension(:), pointer :: dist_type_aero
real, public, dimension(:,:,:,:), pointer :: dist_prmts_aero
integer, public :: isccp_top_height
integer, public :: isccp_top_height_direction
integer, public :: isccp_overlap
real, public :: isccp_emsfc_lw
integer, public :: plat
integer, public :: sat
integer, public :: inst
integer, public :: Nchan
integer, public, dimension(:), pointer :: Ichan
real, public, dimension(:), pointer :: Surfem
real, public :: ZenAng
real, public :: co2
real, public :: ch4
real, public :: n2o
real, public :: co

Subroutines

public subroutine CONSTRUCT_COSP_RTTOV(cfg, Npoints, Nchan, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
integer, intent(in) :: Nchan
type(COSP_RTTOV), intent(out) :: x

public subroutine FREE_COSP_RTTOV(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_RTTOV), intent(inout) :: x

public subroutine CONSTRUCT_COSP_MISR(cfg, Npoints, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
type(COSP_MISR), intent(out) :: x

public subroutine FREE_COSP_MISR(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_MISR), intent(inout) :: x

public subroutine CONSTRUCT_COSP_ISCCP(cfg, Npoints, Ncolumns, Nlevels, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
type(COSP_ISCCP), intent(out) :: x

public subroutine FREE_COSP_ISCCP(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_ISCCP), intent(inout) :: x

public subroutine CONSTRUCT_COSP_VGRID(gbx, Nlvgrid, use_vgrid, cloudsat, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_GRIDBOX), intent(in) :: gbx
integer, intent(in) :: Nlvgrid
logical, intent(in) :: use_vgrid
logical, intent(in) :: cloudsat
type(COSP_VGRID), intent(out) :: x

public subroutine FREE_COSP_VGRID(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_VGRID), intent(inout) :: x

public subroutine CONSTRUCT_COSP_SGLIDAR(cfg, Npoints, Ncolumns, Nlevels, Nhydro, Nrefl, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
integer, intent(in) :: Nhydro
integer, intent(in) :: Nrefl
type(COSP_SGLIDAR), intent(out) :: x

public subroutine FREE_COSP_SGLIDAR(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_SGLIDAR), intent(inout) :: x

public subroutine CONSTRUCT_COSP_SGRADAR(cfg, Npoints, Ncolumns, Nlevels, Nhydro, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
integer, intent(in) :: Nhydro
type(COSP_SGRADAR), intent(out) :: x

public subroutine FREE_COSP_SGRADAR(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_SGRADAR), intent(inout) :: x

public subroutine CONSTRUCT_COSP_RADARSTATS(cfg, Npoints, Ncolumns, Nlevels, Nhydro, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
integer, intent(in) :: Nhydro
type(COSP_RADARSTATS), intent(out) :: x

public subroutine FREE_COSP_RADARSTATS(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_RADARSTATS), intent(inout) :: x

public subroutine CONSTRUCT_COSP_LIDARSTATS(cfg, Npoints, Ncolumns, Nlevels, Nhydro, Nrefl, x)

Arguments

Type IntentOptional Attributes Name
type(COSP_CONFIG), intent(in) :: cfg
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
integer, intent(in) :: Nhydro
integer, intent(in) :: Nrefl
type(COSP_LIDARSTATS), intent(out) :: x

public subroutine FREE_COSP_LIDARSTATS(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_LIDARSTATS), intent(inout) :: x

public subroutine CONSTRUCT_COSP_SUBGRID(Npoints, Ncolumns, Nlevels, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
type(COSP_SUBGRID), intent(out) :: y

public subroutine FREE_COSP_SUBGRID(y)

Arguments

Type IntentOptional Attributes Name
type(COSP_SUBGRID), intent(inout) :: y

public subroutine CONSTRUCT_COSP_SGHYDRO(Npoints, Ncolumns, Nlevels, Nhydro, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: Npoints
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nlevels
integer, intent(in) :: Nhydro
type(COSP_SGHYDRO), intent(out) :: y

public subroutine FREE_COSP_SGHYDRO(y)

Arguments

Type IntentOptional Attributes Name
type(COSP_SGHYDRO), intent(inout) :: y

public subroutine CONSTRUCT_COSP_GRIDBOX(time, time_bnds, radar_freq, surface_radar, use_mie_tables, use_gas_abs, do_ray, melt_lay, k2, Npoints, Nlevels, Ncolumns, Nhydro, Nprmts_max_hydro, Naero, Nprmts_max_aero, Npoints_it, lidar_ice_type, isccp_top_height, isccp_top_height_direction, isccp_overlap, isccp_emsfc_lw, use_precipitation_fluxes, use_reff, Plat, Sat, Inst, Nchan, ZenAng, Ichan, SurfEm, co2, ch4, n2o, co, y, load_LUT)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: time
double precision, intent(in) :: time_bnds(2)
real, intent(in) :: radar_freq
integer, intent(in) :: surface_radar
integer, intent(in) :: use_mie_tables
integer, intent(in) :: use_gas_abs
integer, intent(in) :: do_ray
integer, intent(in) :: melt_lay
real, intent(in) :: k2
integer, intent(in) :: Npoints
integer, intent(in) :: Nlevels
integer, intent(in) :: Ncolumns
integer, intent(in) :: Nhydro
integer, intent(in) :: Nprmts_max_hydro
integer, intent(in) :: Naero
integer, intent(in) :: Nprmts_max_aero
integer, intent(in) :: Npoints_it
integer, intent(in) :: lidar_ice_type
integer, intent(in) :: isccp_top_height
integer, intent(in) :: isccp_top_height_direction
integer, intent(in) :: isccp_overlap
real, intent(in) :: isccp_emsfc_lw
logical, intent(in) :: use_precipitation_fluxes
logical, intent(in) :: use_reff
integer, intent(in) :: Plat
integer, intent(in) :: Sat
integer, intent(in) :: Inst
integer, intent(in) :: Nchan
real, intent(in) :: ZenAng
integer, intent(in) :: Ichan(Nchan)
real, intent(in) :: SurfEm(Nchan)
real, intent(in) :: co2
real, intent(in) :: ch4
real, intent(in) :: n2o
real, intent(in) :: co
type(COSP_GRIDBOX), intent(out) :: y
logical, intent(in), optional :: load_LUT

public subroutine FREE_COSP_GRIDBOX(y, dglobal, save_LUT)

Arguments

Type IntentOptional Attributes Name
type(COSP_GRIDBOX), intent(inout) :: y
logical, intent(in), optional :: dglobal
logical, intent(in), optional :: save_LUT

public subroutine COSP_GRIDBOX_CPHP(x, y)

Arguments

Type IntentOptional Attributes Name
type(COSP_GRIDBOX), intent(in) :: x
type(COSP_GRIDBOX), intent(inout) :: y

public subroutine COSP_GRIDBOX_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_GRIDBOX), intent(in) :: x
type(COSP_GRIDBOX), intent(inout) :: y

public subroutine COSP_SUBGRID_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_SUBGRID), intent(in) :: x
type(COSP_SUBGRID), intent(inout) :: y

public subroutine COSP_SGRADAR_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_SGRADAR), intent(in) :: x
type(COSP_SGRADAR), intent(inout) :: y

public subroutine COSP_SGLIDAR_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_SGLIDAR), intent(in) :: x
type(COSP_SGLIDAR), intent(inout) :: y

public subroutine COSP_ISCCP_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_ISCCP), intent(in) :: x
type(COSP_ISCCP), intent(inout) :: y

public subroutine COSP_MISR_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_MISR), intent(in) :: x
type(COSP_MISR), intent(inout) :: y

public subroutine COSP_RTTOV_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_RTTOV), intent(in) :: x
type(COSP_RTTOV), intent(inout) :: y

public subroutine COSP_RADARSTATS_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_RADARSTATS), intent(in) :: x
type(COSP_RADARSTATS), intent(inout) :: y

public subroutine COSP_LIDARSTATS_CPSECTION(ix, iy, x, y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(2) :: ix
integer, intent(in), dimension(2) :: iy
type(COSP_LIDARSTATS), intent(in) :: x
type(COSP_LIDARSTATS), intent(inout) :: y

public subroutine COSP_GRIDBOX_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_GRIDBOX), intent(in) :: x

public subroutine COSP_MISR_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_MISR), intent(in) :: x

public subroutine COSP_ISCCP_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_ISCCP), intent(in) :: x

public subroutine COSP_VGRID_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_VGRID), intent(in) :: x

public subroutine COSP_SGLIDAR_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_SGLIDAR), intent(in) :: x

public subroutine COSP_SGRADAR_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_SGRADAR), intent(in) :: x

public subroutine COSP_RADARSTATS_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_RADARSTATS), intent(in) :: x

public subroutine COSP_LIDARSTATS_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_LIDARSTATS), intent(in) :: x

public subroutine COSP_SUBGRID_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_SUBGRID), intent(in) :: x

public subroutine COSP_SGHYDRO_PRINT(x)

Arguments

Type IntentOptional Attributes Name
type(COSP_SGHYDRO), intent(in) :: x