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

diag module for interpolation in surface layer

parent 393b2460
No related branches found
No related tags found
No related merge requests found
module pbldia_new_sfx module pbldia_new_sfx
use sfx_phys_const
implicit none implicit none
real,parameter,private::undef=-999.0,R=287.,appa=0.287 real,parameter,private::undef=-999.0,R=287.,appa=0.287
...@@ -54,7 +53,7 @@ use sfx_sheba, only: & ...@@ -54,7 +53,7 @@ use sfx_sheba, only: &
real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10) real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10)
real,intent(out)::ARDOUT(3) !ARDOUT(4) real,intent(out)::ARDOUT(3) !ARDOUT(4)
! real,parameter::Llim = 50.0 !minimum value of L for stable SL (25) ! 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,parameter::kappa = 0.4
real psi_m,psi_h,psi_m_hs,psi_h_hs real psi_m,psi_h,psi_m_hs,psi_h_hs
real hwind,htemp,ustar,tstar,qstar,& real hwind,htemp,ustar,tstar,qstar,&
...@@ -100,7 +99,7 @@ use sfx_most, only: & ...@@ -100,7 +99,7 @@ use sfx_most, only: &
real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10) real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10)
real,intent(out)::ARDOUT(3) !ARDOUT(4) real,intent(out)::ARDOUT(3) !ARDOUT(4)
! real,parameter::Llim = 50.0 !minimum value of L for stable SL (25) ! 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,parameter::kappa = 0.4
real psi_m,psi_h,psi_m_hs,psi_h_hs real psi_m,psi_h,psi_m_hs,psi_h_hs
real hwind,htemp,ustar,tstar,qstar,& real hwind,htemp,ustar,tstar,qstar,&
...@@ -147,7 +146,7 @@ subroutine pbldia_new_esm(AR2,ARDIN,ARDOUT) ...@@ -147,7 +146,7 @@ subroutine pbldia_new_esm(AR2,ARDIN,ARDOUT)
real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10) real,intent(in):: AR2(11),ARDIN(6)!ARDIN(10)
real,intent(out)::ARDOUT(3) !ARDOUT(4) real,intent(out)::ARDOUT(3) !ARDOUT(4)
! real,parameter::Llim = 50.0 !minimum value of L for stable SL (25) ! 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,parameter::kappa = 0.4
real psi_m,psi_h,psi_m_hs,psi_h_hs real psi_m,psi_h,psi_m_hs,psi_h_hs
real hwind,htemp,ustar,tstar,qstar,& real hwind,htemp,ustar,tstar,qstar,&
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment