add_phys_tend_mod Module


Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, SAVE :: fl_ebil
integer, public, SAVE :: fl_cor_ebil

Subroutines

public subroutine add_pbl_tend(zdu, zdv, zdt, zdq, zdql, zdqi, zdqbs, paprs, text, abortphy, flag_inhib_tend, itap)

Arguments

Type IntentOptional Attributes Name
real :: zdu(klon,klev)
real :: zdv(klon,klev)
real :: zdt(klon,klev)
real :: zdq(klon,klev)
real :: zdql(klon,klev)
real :: zdqi(klon,klev)
real :: zdqbs(klon,klev)
real :: paprs(klon,klev+1)
character(len=*) :: text
integer :: abortphy
integer :: flag_inhib_tend
integer :: itap

public subroutine add_phys_tend(zdu, zdv, zdt, zdq, zdql, zdqi, zdqbs, paprs, text, abortphy, flag_inhib_tend, itap, diag_mode)

! if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN ! if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon,klev) :: zdu
real, intent(in), DIMENSION(klon,klev) :: zdv
real, intent(in), DIMENSION(klon,klev) :: zdt
real, intent(inout), DIMENSION(klon,klev) :: zdq
real, intent(in), DIMENSION(klon,klev) :: zdql
real, intent(in), DIMENSION(klon,klev) :: zdqi
real, intent(in), DIMENSION(klon,klev) :: zdqbs
real, intent(in), DIMENSION(klon,klev+1) :: paprs
character(len=*), intent(in) :: text
integer, intent(in) :: abortphy
integer, intent(in) :: flag_inhib_tend
integer, intent(in) :: itap
integer, intent(in) :: diag_mode

public subroutine diag_phys_tend(nlon, nlev, uu, vv, temp, qv, ql, qs, qbs, zdu, zdv, zdt, zdq, zdql, zdqs, zdqbs, paprs, text)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlon
integer, intent(in) :: nlev
real, intent(in), DIMENSION(nlon,nlev) :: uu
real, intent(in), DIMENSION(nlon,nlev) :: vv
real, intent(in), DIMENSION(nlon,nlev) :: temp
real, intent(in), DIMENSION(nlon,nlev) :: qv
real, intent(in), DIMENSION(nlon,nlev) :: ql
real, intent(in), DIMENSION(nlon,nlev) :: qs
real, intent(in), DIMENSION(nlon,nlev) :: qbs
real, intent(in), DIMENSION(nlon,nlev) :: zdu
real, intent(in), DIMENSION(nlon,nlev) :: zdv
real, intent(in), DIMENSION(nlon,nlev) :: zdt
real, intent(in), DIMENSION(nlon,nlev) :: zdq
real, intent(in), DIMENSION(nlon,nlev) :: zdql
real, intent(in), DIMENSION(nlon,nlev) :: zdqs
real, intent(in), DIMENSION(nlon,nlev) :: zdqbs
real, intent(in), DIMENSION(nlon,nlev+1) :: paprs
character(len=*), intent(in) :: text

public subroutine integr_v(nlon, nlev, zcpvap, temp, qv, ql, qs, qbs, uu, vv, zairm, zqw_col, zql_col, zqs_col, zqbs_col, zek_col, zh_dair_col, zh_qw_col, zh_ql_col, zh_qs_col, zh_qbs_col, zh_col)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlon
integer, intent(in) :: nlev
real, intent(in) :: zcpvap
real, intent(in), DIMENSION(nlon,nlev) :: temp
real, intent(in), DIMENSION(nlon,nlev) :: qv
real, intent(in), DIMENSION(nlon,nlev) :: ql
real, intent(in), DIMENSION(nlon,nlev) :: qs
real, intent(in), DIMENSION(nlon,nlev) :: qbs
real, intent(in), DIMENSION(nlon,nlev) :: uu
real, intent(in), DIMENSION(nlon,nlev) :: vv
real, intent(in), DIMENSION(nlon,nlev) :: zairm
real, intent(out), DIMENSION(nlon) :: zqw_col
real, intent(out), DIMENSION(nlon) :: zql_col
real, intent(out), DIMENSION(nlon) :: zqs_col
real, intent(out), DIMENSION(nlon) :: zqbs_col
real, intent(out), DIMENSION(nlon) :: zek_col
real, intent(out), DIMENSION(nlon) :: zh_dair_col
real, intent(out), DIMENSION(nlon) :: zh_qw_col
real, intent(out), DIMENSION(nlon) :: zh_ql_col
real, intent(out), DIMENSION(nlon) :: zh_qs_col
real, intent(out), DIMENSION(nlon) :: zh_qbs_col
real, intent(out), DIMENSION(nlon) :: zh_col

public subroutine prt_enerbil(text, itap)

print *,'prt_level:',prt_level,' fl_ebil:',fl_ebil,' fl_cor_ebil:',fl_cor_ebil

Arguments

Type IntentOptional Attributes Name
character(len=*) :: text
integer :: itap