My Project
 All Classes Files Functions Variables Macros
1D_read_forc_cases.h File Reference

Go to the source code of this file.

Functions/Subroutines

llm zlay (l)
llm llm!Above the max altutide
of the input file 
if (zlay(l)< height(kmax)) mxcalc
llm llm!Above the max altutide
of the input file 
temp (l)
llm llm!Above the max altutide
of the input file 
teta (l) q(l
llm llm!Above the max altutide
of the input file kmax 
height (k)
llm llm!Above the max altutide
of the input file kmax 
tttprof (k) if(zlay(l)>height(k-1).and.zlay(l)< height(k)) then ttt

Variables

 !forcing_les
llm llm!Above the max altutide
of the input file 
temp
llm llm!Above the max altutide
of the input file 
teta
llm llm!Above the max altutide
of the input file 
l
llm llm!Above the max altutide
of the input file kmax 
frac
llm llm!Above the max altutide
of the input file kmax 
k
llm llm!Above the max altutide
of the input file kmax 
height
llm llm!Above the max altutide
of the input file kmax 
tttprof

Function/Subroutine Documentation

llm llm ! Above the max altutide of the input file kmax height ( k  )
llm llm ! Above the max altutide of the input file if ( )
llm llm ! Above the max altutide of the input file temp ( l  )
llm llm ! Above the max altutide of the input file teta ( l  )
llm llm ! Above the max altutide of the input file kmax tttprof ( k  )
llm zlay ( l  )

Here is the caller graph for this function:

Variable Documentation

!forcing_les
Initial value:
.T. : Impose a constant cooling
! forcing_radconv = .T. : Pure radiative-convective equilibrium:
!----------------------------------------------------------------------
if (forcing_les .or. forcing_radconv .or. forcing_GCSSold ) then
!----------------------------------------------------------------------
! Read profiles from files: prof.inp.001 and lscale.inp.001
! (repris de readlesfiles)
!----------------------------------------------------------------------
call readprofiles(nlev_max,kmax,height,
. tttprof,qtprof,uprof,vprof,
. e12prof,ugprof,vgprof,
. wfls,dqtdxls,dqtdyls,dqtdtls,
. thlpcar)
! compute altitudes of play levels.
zlay(1) =zsurf + rd*tsurf*(psurf-play(1))/(rg*psurf)
do l = 2

Definition at line 2 of file 1D_read_forc_cases.h.

llm llm ! Above the max altutide of the input file kmax frac
Initial value:
(height(k)-zlay(l))/(height(k)-height(k-1))
if(l==1) print*

Definition at line 56 of file 1D_read_forc_cases.h.

llm llm ! Above the max altutide of the input file kmax height

Definition at line 56 of file 1D_read_forc_cases.h.

!$Id nlevSTD DO klon nlevSTD c CALL nlevSTD DO klon k
Initial value:
O3sumSTD(i,k,1) * 1.e+9
ELSE
zx_tmp_fiNC(i,k) = missing_val
ENDIF
ENDDO
ENDDO !k=1

Definition at line 56 of file 1D_read_forc_cases.h.

llm llm!Above the max altutide of the input file kmax l

Definition at line 44 of file 1D_read_forc_cases.h.

llm llm!Above the max altutide of the input file kmax temp

Definition at line 44 of file 1D_read_forc_cases.h.

llm llm!Above the max altutide of the input file kmax teta

Definition at line 44 of file 1D_read_forc_cases.h.

llm llm ! Above the max altutide of the input file kmax tttprof

Definition at line 56 of file 1D_read_forc_cases.h.