calcul_STDlev.h File Reference

Go to the source code of this file.

Functions
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL	plevel_new (klon, klev, nlevSTD,.true., pplay, rlevSTD,&t_seri, tlevSTD) CALL plevel_new(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL	plevel_new (klon, klev, nlevSTD,.false., pplay, rlevSTD,&v_seri, vlevSTD)!!CALL plevel_new(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL	plevel_new (klon, klev, nlevSTD,.false., pplay, rlevSTD,&qx(:,:, ivap), qlevSTD) CALL plevel_new(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon	zx_tmp_fi3d (i, l)
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les	!IF (.not.ok_all_xml) then CALL undefSTD(itap
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL	moy_undefSTD (itap, itapm1) ENDIF!CALL plevel(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le	SWup (clr) et SWdn(clr) a 200 hPa!CALL plevel(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL	plevel (klon, klevp1,.false., paprs, 20000.,&swdn, SWdn200) CALL plevel(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL	plevel (klon, klevp1,.false., paprs, 20000.,&swup, SWup200)!CALL plevel(klon
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL	plevel (klon, klevp1,.false., paprs, 20000.,&lwdn, LWdn200) CALL plevel(klon

Variables
!$Id	__pad12__
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO	k =1
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans	plevel_new
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL	klev
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL	nlevSTD
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL	false
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL	pplay
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL	rlevSTD
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL &	u_seri
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi	RG
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO	l =1
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO	i =1
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL	true
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le	klevp1
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le	paprs
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le &	swdn0
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL &	swup0
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL &	lwdn0
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL &	lwup0

Function Documentation

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les !IF

(

.not.

ok_all_xml

)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL moy_undefSTD	(	itap	,
		itapm1
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWdn200clr CALL plevel	(	klon	,
		klevp1	,
		.	false.,
		paprs	,
		20000.	,
		&	swdn,
		SWdn200
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL plevel	(	klon	,
		klevp1	,
		.	false.,
		paprs	,
		20000.	,
		&	swup,
		SWup200
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL plevel	(	klon	,
		klevp1	,
		.	false.,
		paprs	,
		20000.	,
		&	lwdn,
		LWdn200
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL plevel_new	(	klon	,
		klev	,
		nlevSTD	,
		.	true.,
		pplay	,
		rlevSTD	,
		&	t_seri,
		tlevSTD
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL plevel_new	(	klon	,
		klev	,
		nlevSTD	,
		.	false.,
		pplay	,
		rlevSTD	,
		&	v_seri,
		vlevSTD
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL plevel_new	(	klon	,
		klev	,
		nlevSTD	,
		.	false.,
		pplay	,
		rlevSTD	,
		&	qx:,:, ivap,
		qlevSTD
	)

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWup

(

clr

)

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon zx_tmp_fi3d	(	i	,
		l
	)

Initial value:

=v_seri(i,l)*q_seri(i,l)
         ENDDO !i
        ENDDO !l
        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
                   zx_tmp_fi3d,vqSTD)
!
        DO l=1

Variable Documentation

! $Id __pad12__

Definition at line 9 of file calcul_STDlev.h.

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL false

Definition at line 26 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO i =1

Definition at line 41 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO k =1

Definition at line 20 of file calcul_STDlev.h.

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL klev

Definition at line 26 of file calcul_STDlev.h.

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL klevp1

Definition at line 144 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO l =1

Definition at line 40 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL & lwdn0

Definition at line 153 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL & lwup0

Definition at line 157 of file calcul_STDlev.h.

!IM for NMC files!real nfiles!real nfiles!real nlevSTD

Definition at line 26 of file calcul_STDlev.h.

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le SWdn200clr CALL SWup200clr CALL LWdn200clr CALL paprs

Definition at line 144 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans plevel_new

Definition at line 20 of file calcul_STDlev.h.

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL pplay

Definition at line 26 of file calcul_STDlev.h.

!$Header RNAVO!A1 Astronomical constants REAL ROMEGA!A1 bis Constantes concernant l orbite de la R_incl!A1 Geoide REAL R1SA!A1 Radiation!REAL RI0 REAL RSIGMA!A1 Thermodynamic gas phase REAL RCVV REAL RETV Thermodynamic solid phases REAL RCS!A1 Thermodynamic transition of phase REAL RATM!A1 Curve of saturation REAL RGAMS REAL RGAMD!COMMON YOMCST RNAVO ROMEGA R_incl RG

Definition at line 33 of file calcul_STDlev.h.

!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8 save::rlevSTD

Definition at line 26 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le & swdn0

Definition at line 144 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL ulevSTD CALL & zphi philevSTD CALL & zx_rh rhlevSTD ! DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL & zphi geo500 !IM on interpole a chaque pas de temps le SWdn200clr CALL & swup0

Definition at line 148 of file calcul_STDlev.h.

!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le true

Definition at line 139 of file calcul_STDlev.h.

! $Id itapm1 ENDIF !IM on interpole les champs sur les niveaux STD de pression !IM a chaque pas de temps de la physique c ! positionnement de l argument logique a false c ! pour ne pas recalculer deux fois la meme chose ! c ! a cet effet un appel a plevel_new a ete deplace c ! a la fin de la serie d appels c ! la boucle DO nlevSTD a ete internalisee c ! dans d ou la creation de cette routine c c ! CALL & u_seri

Definition at line 26 of file calcul_STDlev.h.