Skip to content
Snippets Groups Projects
Commit 406a5f2c authored by Anna Shestakova's avatar Anna Shestakova
Browse files

diag module for interpolation in surface layer

parent 393b2460
Branches
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 3 additions and 3 deletions
diag/pbldia_new_sfx.f90
+ 3
− 3
View file @ 406a5f2c
......@@ -54,7 +54,7 @@ use sfx_sheba, only: &
real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10)
real,intent(out)::ARDOUT(3) !ARDOUT(4)
! real,parameter::Llim = 50.0 !minimum value of L for stable SL (25)
real,parameter::zetalim = 2. !minimum value of L for stable SL (25)
real,parameter::zetalim = 2. !maximum value of z/L for stable SL
real,parameter::kappa = 0.4
real psi_m,psi_h,psi_m_hs,psi_h_hs
real hwind,htemp,ustar,tstar,qstar,&
......@@ -100,7 +100,7 @@ use sfx_most, only: &
real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10)
real,intent(out)::ARDOUT(3) !ARDOUT(4)
! real,parameter::Llim = 50.0 !minimum value of L for stable SL (25)
real,parameter::zetalim = 2. !minimum value of L for stable SL (25)
real,parameter::zetalim = 2. !maximum value of z/L for stable SL
real,parameter::kappa = 0.4
real psi_m,psi_h,psi_m_hs,psi_h_hs
real hwind,htemp,ustar,tstar,qstar,&
......@@ -147,7 +147,7 @@ subroutine pbldia_new_esm(AR2,ARDIN,ARDOUT)
real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10)
real,intent(out)::ARDOUT(3) !ARDOUT(4)
! real,parameter::Llim = 50.0 !minimum value of L for stable SL (25)
real,parameter::zetalim = 2. !minimum value of L for stable SL (25)
real,parameter::zetalim = 2. !maximum value of z/L for stable SL
real,parameter::kappa = 0.4
real psi_m,psi_h,psi_m_hs,psi_h_hs
real hwind,htemp,ustar,tstar,qstar,&
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment