MOD_ICARUS Module


Uses

  • module~~mod_icarus~2~~UsesGraph module~mod_icarus~2 MOD_ICARUS module~mod_cosp_stats~2 MOD_COSP_STATS module~mod_icarus~2->module~mod_cosp_stats~2 module~mod_cosp_config~2 MOD_COSP_CONFIG module~mod_icarus~2->module~mod_cosp_config~2 module~cosp_phys_constants cosp_phys_constants module~mod_icarus~2->module~cosp_phys_constants module~cosp_kinds cosp_kinds module~mod_icarus~2->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

Used by

  • module~~mod_icarus~2~~UsedByGraph module~mod_icarus~2 MOD_ICARUS module~mod_cosp MOD_COSP module~mod_cosp->module~mod_icarus~2 module~mod_cosp_isccp_interface MOD_COSP_ISCCP_INTERFACE module~mod_cosp->module~mod_cosp_isccp_interface module~mod_cosp_isccp_interface->module~mod_icarus~2 module~mod_cosp_isccp_interface~2 MOD_COSP_ISCCP_INTERFACE module~mod_cosp_isccp_interface~2->module~mod_icarus~2 module~mod_cosp~2 MOD_COSP module~mod_cosp~2->module~mod_icarus~2 module~mod_cosp~2->module~mod_cosp_isccp_interface module~lmdz_cosp_subsample_and_optics_mod~2 LMDZ_COSP_SUBSAMPLE_AND_OPTICS_MOD module~lmdz_cosp_subsample_and_optics_mod~2->module~mod_cosp module~lmdz_cosp_construct_destroy_mod~2 LMDZ_COSP_CONSTRUCT_DESTROY_MOD module~lmdz_cosp_construct_destroy_mod~2->module~mod_cosp module~lmdz_cosp_subsample_and_optics_mod LMDZ_COSP_SUBSAMPLE_AND_OPTICS_MOD module~lmdz_cosp_subsample_and_optics_mod->module~mod_cosp module~lmdz_cosp_construct_destroy_mod LMDZ_COSP_CONSTRUCT_DESTROY_MOD module~lmdz_cosp_construct_destroy_mod->module~mod_cosp proc~lmdz_cosp_output_write~2 lmdz_cosp_output_write proc~lmdz_cosp_output_write~2->module~mod_cosp proc~lmdz_cosp_interface~2 lmdz_cosp_interface proc~lmdz_cosp_interface~2->module~mod_cosp proc~lmdz_cosp_interface~2->module~lmdz_cosp_subsample_and_optics_mod~2 proc~lmdz_cosp_interface~2->module~lmdz_cosp_construct_destroy_mod proc~lmdz_cosp_output_write lmdz_cosp_output_write proc~lmdz_cosp_output_write->module~mod_cosp proc~lmdz_cosp_interface lmdz_cosp_interface proc~lmdz_cosp_interface->module~mod_cosp proc~lmdz_cosp_interface->module~lmdz_cosp_subsample_and_optics_mod~2 proc~lmdz_cosp_interface->module~lmdz_cosp_construct_destroy_mod

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