fisrtilp Subroutine

public subroutine fisrtilp(klon, klev, dtime, paprs, pplay, t, q, ptconv, ratqs, sigma_qtherm, d_t, d_q, d_ql, d_qi, rneb, rneblsvol, 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, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

LTP RLVTT = 2.501e6 ! pas de redefinition des constantes physiques (jyg) RLSTT = 2.834e6 ! pas de redefinition des constantes physiques (jyg) AJ LTP ! 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 LTP LTP LTP LTP
! zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2 !!!!!!!!! jyg

LTP
LTP
AJ

LTP zfice(i)=0. AJ AJ AJ LTP

CR&JYG

LTP

LTP LTP AJ AJ

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	klon
integer,	intent(in)			::	klev
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)	::	rneblsvol
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,	intent(out),		DIMENSION(klon,klev)	::	beta
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
real,	intent(out),		DIMENSION(klon,klev)	::	cloudth_sth
real,	intent(out),		DIMENSION(klon,klev)	::	cloudth_senv
real,	intent(out),		DIMENSION(klon,klev)	::	cloudth_sigmath
real,	intent(out),		DIMENSION(klon,klev)	::	cloudth_sigmaenv

Contents