MOD_ICARUS Module


Uses

  • module~~mod_icarus~~UsesGraph module~mod_icarus MOD_ICARUS module~mod_cosp_stats~2 MOD_COSP_STATS module~mod_icarus->module~mod_cosp_stats~2 module~mod_cosp_config~2 MOD_COSP_CONFIG module~mod_icarus->module~mod_cosp_config~2 module~cosp_phys_constants cosp_phys_constants module~mod_icarus->module~cosp_phys_constants module~cosp_kinds cosp_kinds module~mod_icarus->module~cosp_kinds module~mod_cosp_stats~2->module~mod_cosp_config~2 module~mod_cosp_stats~2->module~cosp_kinds module~mod_cosp_config~2->module~cosp_kinds module~cosp_phys_constants->module~cosp_kinds

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: ncolprint = 0
integer, public :: isccp_top_height
integer, public :: isccp_top_height_direction
real(kind=wp), public, parameter :: tauchk = -1._wp*log(0.9999999_wp)
real(kind=wp), public, parameter :: isccp_taumin = 0.3_wp
real(kind=wp), public, parameter :: pstd = 1013250._wp
real(kind=wp), public, parameter :: isccp_t0 = 296._wp
real(kind=wp), public, parameter :: output_missing_value = -1.E+30

Subroutines

public subroutine ICARUS(debug, debugcol, npoints, sunlit, nlev, ncol, pfull, phalf, qv, cc, conv, dtau_s, dtau_c, th, thd, frac_out, skt, emsfc_lw, at, dem_s, dem_c, fq_isccp, totalcldarea, meanptop, meantaucld, meanalbedocld, meantb, meantbclr, boxtau, boxptop, levmatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: debug
integer, intent(in) :: debugcol
integer, intent(in) :: npoints
integer, intent(in), dimension(npoints) :: sunlit
integer, intent(in) :: nlev
integer, intent(in) :: ncol
real(kind=WP), intent(in), dimension(npoints,nlev) :: pfull
real(kind=WP), intent(in), dimension(npoints,nlev+1) :: phalf
real(kind=WP), intent(in), dimension(npoints,nlev) :: qv
real(kind=WP), intent(in), dimension(npoints,nlev) :: cc
real(kind=WP), intent(in), dimension(npoints,nlev) :: conv
real(kind=WP), intent(in), dimension(npoints,nlev) :: dtau_s
real(kind=WP), intent(in), dimension(npoints,nlev) :: dtau_c
integer, intent(in) :: th
integer, intent(in) :: thd
real(kind=WP), intent(in), dimension(npoints,ncol,nlev) :: frac_out
real(kind=WP), intent(in), dimension(npoints) :: skt
real(kind=WP), intent(in) :: emsfc_lw
real(kind=WP), intent(in), dimension(npoints,nlev) :: at
real(kind=WP), intent(in), dimension(npoints,nlev) :: dem_s
real(kind=WP), intent(in), dimension(npoints,nlev) :: dem_c
real(kind=WP), intent(out), dimension(npoints,7,7) :: fq_isccp
real(kind=WP), intent(out), dimension(npoints) :: totalcldarea
real(kind=WP), intent(out), dimension(npoints) :: meanptop
real(kind=WP), intent(out), dimension(npoints) :: meantaucld
real(kind=WP), intent(out), dimension(npoints) :: meanalbedocld
real(kind=WP), intent(out), dimension(npoints) :: meantb
real(kind=WP), intent(out), dimension(npoints) :: meantbclr
real(kind=WP), intent(out), dimension(npoints,ncol) :: boxtau
real(kind=WP), intent(out), dimension(npoints,ncol) :: boxptop
integer, intent(out), dimension(npoints,ncol) :: levmatch

public subroutine ICARUS_SUBCOLUMN(npoints, ncol, nlev, sunlit, dtau, demIN, skt, emsfc_lw, qv, at, pfull, phalf, frac_out, levmatch, boxtau, boxptop, boxttop, meantbclr)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: npoints
integer, intent(in) :: ncol
integer, intent(in) :: nlev
integer, intent(in), dimension(npoints) :: sunlit
real(kind=WP), intent(in), dimension(npoints,ncol,nlev) :: dtau
real(kind=WP), intent(in), dimension(npoints,ncol,nlev) :: demIN
real(kind=WP), intent(in), dimension(npoints) :: skt
real(kind=WP), intent(in) :: emsfc_lw
real(kind=WP), intent(in), dimension(npoints,nlev) :: qv
real(kind=WP), intent(in), dimension(npoints,nlev) :: at
real(kind=WP), intent(in), dimension(npoints,nlev) :: pfull
real(kind=WP), intent(in), dimension(npoints,nlev+1) :: phalf
real(kind=WP), intent(in), dimension(npoints,ncol,nlev) :: frac_out
integer, intent(inout), dimension(npoints,ncol) :: levmatch
real(kind=WP), intent(inout), dimension(npoints,ncol) :: boxtau
real(kind=WP), intent(inout), dimension(npoints,ncol) :: boxptop
real(kind=WP), intent(inout), dimension(npoints,ncol) :: boxttop
real(kind=WP), intent(inout), dimension(npoints) :: meantbclr

public subroutine ICARUS_column(npoints, ncol, boxtau, boxptop, sunlit, boxttop, fq_isccp, meanalbedocld, meanptop, meantaucld, totalcldarea, meantb)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: npoints
integer, intent(in) :: ncol
real(kind=WP), intent(in), dimension(npoints,ncol) :: boxtau
real(kind=WP), intent(in), dimension(npoints,ncol) :: boxptop
integer, intent(in), dimension(npoints) :: sunlit
real(kind=WP), intent(in), dimension(npoints,ncol) :: boxttop
real(kind=WP), intent(inout), dimension(npoints,7,7) :: fq_isccp
real(kind=WP), intent(inout), dimension(npoints) :: meanalbedocld
real(kind=WP), intent(inout), dimension(npoints) :: meanptop
real(kind=WP), intent(inout), dimension(npoints) :: meantaucld
real(kind=WP), intent(inout), dimension(npoints) :: totalcldarea
real(kind=WP), intent(inout), dimension(npoints) :: meantb

public subroutine cosp_simulator_optics(dim1, dim2, dim3, flag, varIN1, varIN2, varOUT)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: dim1
integer, intent(in) :: dim2
integer, intent(in) :: dim3
real(kind=wp), intent(in), dimension(dim1,dim2,dim3) :: flag
real(kind=wp), intent(in), dimension(dim1, dim3) :: varIN1
real(kind=wp), intent(in), dimension(dim1, dim3) :: varIN2
real(kind=wp), intent(out), dimension(dim1,dim2,dim3) :: varOUT