fisrtilp Subroutine

public subroutine fisrtilp(dtime, paprs, pplay, t, q, ptconv, ratqs, sigma_qtherm, d_t, d_q, d_ql, d_qi, rneb, radliq, rain, snow, pfrac_impa, pfrac_nucl, pfrac_1nucl, frac_impa, frac_nucl, beta, prfl, psfl, rhcl, zqta, fraca, ztv, zpspsk, ztla, zthl, iflag_cld_th, iflag_ice_thermo)

Uses

  • proc~~fisrtilp~2~~UsesGraph proc~fisrtilp~2 fisrtilp module~yomcst_mod_h yomcst_mod_h proc~fisrtilp~2->module~yomcst_mod_h module~lmdz_lscp_ini lmdz_lscp_ini proc~fisrtilp~2->module~lmdz_lscp_ini module~phys_output_var_mod~2 phys_output_var_mod proc~fisrtilp~2->module~phys_output_var_mod~2 module~phys_local_var_mod phys_local_var_mod proc~fisrtilp~2->module~phys_local_var_mod module~lmdz_lscp_condensation lmdz_lscp_condensation proc~fisrtilp~2->module~lmdz_lscp_condensation module~dimphy~3 dimphy proc~fisrtilp~2->module~dimphy~3 module~yoethf_mod_h yoethf_mod_h proc~fisrtilp~2->module~yoethf_mod_h module~add_phys_tend_mod add_phys_tend_mod proc~fisrtilp~2->module~add_phys_tend_mod module~ioipsl_getin_p_mod ioipsl_getin_p_mod proc~fisrtilp~2->module~ioipsl_getin_p_mod module~icefrac_lsc_mod icefrac_lsc_mod proc~fisrtilp~2->module~icefrac_lsc_mod module~print_control_mod print_control_mod proc~fisrtilp~2->module~print_control_mod module~phys_output_var_mod~2->module~dimphy~3 module~strings_mod strings_mod module~phys_output_var_mod~2->module~strings_mod module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper module~phys_local_var_mod->module~lmdz_cppkeys_wrapper module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para mod_phys_lmdz_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_para ioipsl ioipsl module~ioipsl_getin_p_mod->ioipsl module~ioipsl_getin_p_mod->module~strings_mod module~mod_phys_lmdz_mpi_transfert mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data module~mod_phys_lmdz_omp_data mod_phys_lmdz_omp_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_omp_data netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf iso_fortran_env iso_fortran_env module~lmdz_cppkeys_wrapper->iso_fortran_env module~strings_mod->iso_fortran_env module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi

RLVTT = 2.501e6 ! pas de redefinition des constantes physiques (jyg) RLSTT = 2.834e6 ! pas de redefinition des constantes physiques (jyg) AJ ! On ne tient compte de cette fraction que sous une seule ! couche sous le nuage JLD debut de partie a supprimer a terme JLD fin de partie a supprimer a terme ! zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2 !!!!!!!!! jyg

AJ zfice(i)=0. AJ AJ AJ

CR&JYG

AJ AJ

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon,klev) :: t
real, intent(in), DIMENSION(klon,klev) :: q
logical, intent(in), DIMENSION(klon,klev) :: ptconv
real, intent(inout), DIMENSION(klon,klev) :: ratqs
real, intent(inout), DIMENSION(klon,klev) :: sigma_qtherm
real, intent(out), DIMENSION(klon,klev) :: d_t
real, intent(out), DIMENSION(klon,klev) :: d_q
real, intent(out), DIMENSION(klon,klev) :: d_ql
real, intent(out), DIMENSION(klon,klev) :: d_qi
real, intent(out), DIMENSION(klon,klev) :: rneb
real, intent(out), DIMENSION(klon,klev) :: radliq
real, intent(out), DIMENSION(klon) :: rain
real, intent(out), DIMENSION(klon) :: snow
real, intent(inout), DIMENSION(klon,klev) :: pfrac_impa
real, intent(inout), DIMENSION(klon,klev) :: pfrac_nucl
real, intent(inout), DIMENSION(klon,klev) :: pfrac_1nucl
real, intent(out), DIMENSION(klon,klev) :: frac_impa
real, intent(out), DIMENSION(klon,klev) :: frac_nucl
real :: beta(klon,klev)
real, intent(out), DIMENSION(klon,klev+1) :: prfl
real, intent(out), DIMENSION(klon,klev+1) :: psfl
real, intent(out), DIMENSION(klon,klev) :: rhcl
real, intent(in), DIMENSION(klon,klev) :: zqta
real, intent(in), DIMENSION(klon,klev) :: fraca
real, intent(in), DIMENSION(klon,klev) :: ztv
real, intent(in), DIMENSION(klon,klev) :: zpspsk
real, intent(in), DIMENSION(klon,klev) :: ztla
real, intent(inout), DIMENSION(klon,klev) :: zthl
integer, intent(in) :: iflag_cld_th
integer, intent(in) :: iflag_ice_thermo

Calls

proc~~fisrtilp~2~~CallsGraph proc~fisrtilp~2 fisrtilp proc~cloudth_v3 cloudth_v3 proc~fisrtilp~2->proc~cloudth_v3 proc~cloudth_v6 cloudth_v6 proc~fisrtilp~2->proc~cloudth_v6 proc~cloudth cloudth proc~fisrtilp~2->proc~cloudth interface~getin_p getin_p proc~fisrtilp~2->interface~getin_p proc~icefrac_lsc icefrac_lsc proc~fisrtilp~2->proc~icefrac_lsc proc~cloudth_vert_v3 cloudth_vert_v3 proc~cloudth_v3->proc~cloudth_vert_v3 proc~cloudth_vert cloudth_vert proc~cloudth->proc~cloudth_vert

Contents