Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
atm_diffus | Module: | File: ATURB_E1.f |
Author : Ye Cheng/G. Hartke (modifications by G. Schmidt)
Version:
Declaration:
subroutine atm_diffus(lbase_min, lbase_max, dtime)
- lbase_min :
integer, intent(in)
- /max levels through which to apply turbulence (dummy)
- dtime :
real*8, intent(in)
- time step
- qmin :
real*8, parameter
- minimum value of specific humidity
Initial Value= 1.d-20
- itest :
integer, parameter
- /jtest longitude/latitude at which dout may be called
Initial Value= 1
- call_diag :
logical, parameter
- logical variable whether dout is called
Initial Value= .false.
- grav : used from constant
- deltx : used from constant
- lhe : used from constant
- sha : used from constant
- by3 : used from constant
- teeny : used from constant
- mb2kg : used from constant
- psf : used from resolution
- pmtop : used from resolution
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- itime : used from model_com
- u_3d : used from atm_com
- Initial Value
= >u
- v_3d : used from atm_com
- Initial Value
= >v
- t_3d : used from atm_com
- Initial Value
= >t
- q_3d : used from atm_com
- Initial Value
= >q
- imaxj : used from geom
- byaxyp : used from geom
- axyp : used from geom
- pk : used from atm_com
- pdsig : used from atm_com
- plij : used from atm_com
- pek : used from atm_com
- byma : used from atm_com
- ma : used from atm_com
- u_3d_agrid : used from atm_com
- Initial Value
= >ualij
- v_3d_agrid : used from atm_com
- Initial Value
= >valij
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_atm
- halo_update : used from domain_decomp_atm
- jl_trbhr : used from diag_com
- jl_damdc : used from diag_com
- jl_trbke : used from diag_com
- jl_trbdlht : used from diag_com
- b1 : used from socpbl
- b123 : used from socpbl
- prt : used from socpbl
- kappa : used from socpbl
- zgs : used from socpbl
- ustar_min : used from socpbl
- lmonin_min : used from socpbl
- lmonin_max : used from socpbl
- dclev : used from pblcom
- e_3d : used from pblcom
- Initial Value
= >egcm
- w2_3d : used from pblcom
- Initial Value
= >w2gcm
- t1_after_aturb : used from pblcom
- u1_after_aturb : used from pblcom
- v1_after_aturb : used from pblcom
- uflux1 : used from fluxes
- vflux1 : used from fluxes
- tflux1 : used from fluxes
- qflux1 : used from fluxes
- atmsrf : used from fluxes
- lbase_max :
integer, intent(in)
- jtest :
integer, parameter
- Initial Value
= 11
- u :
real*8, dimension(lm)
- v :
real*8, dimension(lm)
- t :
real*8, dimension(lm)
- q :
real*8, dimension(lm)
- e :
real*8, dimension(lm)
- u0 :
real*8, dimension(lm)
- v0 :
real*8, dimension(lm)
- t0 :
real*8, dimension(lm)
- q0 :
real*8, dimension(lm)
- e0 :
real*8, dimension(lm)
- dudz :
real*8, dimension(lm)
- dvdz :
real*8, dimension(lm)
- dtdz :
real*8, dimension(lm)
- dqdz :
real*8, dimension(lm)
- g_alpha :
real*8, dimension(lm)
- as2 :
real*8, dimension(lm)
- shear number squared
- an2 :
real*8, dimension(lm)
- brunt-vassala frequency
- rhoebydz :
real*8, dimension(lm)
- bydzerho :
real*8, dimension(lm)
- rho :
real*8, dimension(lm)
- rhoe :
real*8, dimension(lm)
- dz :
real*8, dimension(lm)
- dze :
real*8, dimension(lm)
- km :
real*8, dimension(lm)
- kh :
real*8, dimension(lm)
- ke :
real*8, dimension(lm)
- wt_nl :
real*8, dimension(lm)
- wq_nl :
real*8, dimension(lm)
- lscale :
real*8, dimension(lm)
- qturb :
real*8, dimension(lm)
- p3 :
real*8, dimension(lm)
- p4 :
real*8, dimension(lm)
- rhobydze :
real*8, dimension(lm)
- bydzrhoe :
real*8, dimension(lm)
- w2 :
real*8, dimension(lm)
- uw :
real*8, dimension(lm)
- vw :
real*8, dimension(lm)
- wt :
real*8, dimension(lm)
- wq :
real*8, dimension(lm)
- ze :
real*8, dimension(lm+1)
- rho_3d :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- rhoe_3d :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- dz_3d :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- dze_3d :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- km_3d :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- t_3d_virtual :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- uasv :
real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- tvsurf :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- (i,j) surface virtual temperature
- uvflux_vgrid :
real*8, dimension((1+grid%i_stop_halo-grid%i_strt_halo)*(1+grid%j_stop_halo-grid%j_strt_halo)*2)
- uflx :
real*8
- vflx :
real*8
- tvflx :
real*8
- qflx :
real*8
- tvs :
real*8
- ustar2 :
real*8
- t0ijl :
real*8
- tijl :
real*8
- rak :
real*8
- alpha1 :
real*8
- ustar :
real*8
- flux_bot :
real*8
- flux_top :
real*8
- x_surf :
real*8
- wstar :
real*8
- dbl :
real*8
- lmonin :
real*8
- tpe0 :
real*8
- tpe1 :
real*8
- ediff :
real*8
- idik :
integer
- idjk :
integer
- ldbl :
integer
- kmax :
integer
- i :
integer
- j :
integer
- l :
integer
- k :
integer
- n :
integer
- iter :
integer
- uv :
real*8, dimension(lm)
- uv0 :
real*8, dimension(lm)
- ilist :
integer, dimension(4)
- jlist :
integer, dimension(4)
- wts :
real*8, dimension(4)
- nuv :
integer
- vpkey :
integer
- vpkey_last :
integer
- nnbr :
integer
- i_0 :
integer
- i_1 :
integer
- j_1 :
integer
- j_0 :
integer
- j_0h :
integer
- j_1h :
integer
- j_0s :
integer
- j_1s :
integer
- have_south_pole :
logical
- have_north_pole :
logical
- tvsurf :
real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)
- (i,j) surface virtual temperature
- tsavg :
- (i,j) composite surface air temperature (k)
- an2 :
real*8, dimension(lm)
- brunt-vassala frequency
- as2 :
real*8, dimension(lm)
- shear number squared