nwp_nudge_nlm.F90 File Reference

Go to the source code of this file.

Modules
module	nwp_nudge_nlm_mod

Functions/Subroutines
subroutine, public	nwp_nudge_nlm_mod::do_nwp_nudge (Time, dt, npz, ps_dt, u_dt, v_dt, t_dt, q_dt, zvir, ak, bk, ts, ps, delp, ua, va, pt, nwat, q, phis)
subroutine	nwp_nudge_nlm_mod::get_obs (Time, dt, zvir, ak, bk, ps, ts, ps_obs, delp, u_obs, v_obs, t_obs, q_obs, tpw_dat, phis, gz_int, npz)
subroutine, public	nwp_nudge_nlm_mod::nwp_nudge_init (npz, zvir, ak, bk, ts, phis)
subroutine	nwp_nudge_nlm_mod::get_ncep_analysis (ps, u, v, t, q, zvir, ts, nfile, fname)
subroutine	nwp_nudge_nlm_mod::remap_coef
subroutine	nwp_nudge_nlm_mod::ncep2fms (sst)
subroutine	nwp_nudge_nlm_mod::get_int_hght (h_int, npz, ak, bk, ps, delp, ps0, tv)
subroutine	nwp_nudge_nlm_mod::remap_tq (npz, ak, bk, ps, delp, t, q, kmd, ps0, ta, qa, zvir)
subroutine	nwp_nudge_nlm_mod::remap_uv (npz, ak, bk, ps, delp, u, v, kmd, ps0, u0, v0)
subroutine, public	nwp_nudge_nlm_mod::nwp_nudge_end
subroutine	nwp_nudge_nlm_mod::get_tc_mask (time, mask)
subroutine, public	nwp_nudge_nlm_mod::breed_slp_inline (nstep, dt, npz, ak, bk, phis, pe, pk, peln, delp, u, v, pt, q, nwat, zvir)
subroutine	nwp_nudge_nlm_mod::breed_slp (time, dt, npz, ak, bk, ps, phis, delp, ua, va, u_dt, v_dt, pt, q, nwat, zvir)
subroutine	nwp_nudge_nlm_mod::get_slp_obs (time, nobs, lon_obs, lat_obs, mslp, slp_out, r_out, time_obs, x_o, y_o, slp_o, r_vor, p_vor, stime, fact)
subroutine	nwp_nudge_nlm_mod::slp_obs_init
real(fvprc) function	nwp_nudge_nlm_mod::calday (year, month, day, hour, minute, sec)
logical function	nwp_nudge_nlm_mod::leap_year (ny)
subroutine	nwp_nudge_nlm_mod::pmaxmin (qname, a, imax, jmax, fac)
subroutine	nwp_nudge_nlm_mod::del2_uv (du, dv, cd, kmd, ntimes)
subroutine	nwp_nudge_nlm_mod::del2_scalar (qdt, cd, kmd, ntimes)

Variables
character(len=128)	nwp_nudge_nlm_mod::version = ''
character(len=128)	nwp_nudge_nlm_mod::tagname = ''
integer	nwp_nudge_nlm_mod::im
integer	nwp_nudge_nlm_mod::jm
integer	nwp_nudge_nlm_mod::km
real(fvprc), dimension(:), allocatable	nwp_nudge_nlm_mod::ak0
real(fvprc), dimension(:), allocatable	nwp_nudge_nlm_mod::bk0
real(fvprc), dimension(:), allocatable	nwp_nudge_nlm_mod::lat
real(fvprc), dimension(:), allocatable	nwp_nudge_nlm_mod::lon
logical	nwp_nudge_nlm_mod::module_is_initialized = .false.
logical	nwp_nudge_nlm_mod::master
logical	nwp_nudge_nlm_mod::no_obs
real(fvprc)	nwp_nudge_nlm_mod::deg2rad
real(fvprc)	nwp_nudge_nlm_mod::rad2deg
real(fvprc)	nwp_nudge_nlm_mod::time_nudge = 0.
integer	nwp_nudge_nlm_mod::time_interval = 6*3600
integer, parameter	nwp_nudge_nlm_mod::nfile_max = 125
integer	nwp_nudge_nlm_mod::nfile = 1
integer	nwp_nudge_nlm_mod::k_breed = 0
integer	nwp_nudge_nlm_mod::k_trop = 0
real(fvprc)	nwp_nudge_nlm_mod::p_trop = 300.E2
real(fvprc), dimension(:,:,:), allocatable	nwp_nudge_nlm_mod::s2c
integer, dimension(:,:), allocatable	nwp_nudge_nlm_mod::id1
integer, dimension(:,:), allocatable	nwp_nudge_nlm_mod::id2
integer, dimension(:,:), allocatable	nwp_nudge_nlm_mod::jdc
real(fvprc), dimension(:,:,:), allocatable	nwp_nudge_nlm_mod::ps_dat
real *4, dimension(:,:,:,:), allocatable	nwp_nudge_nlm_mod::u_dat
real *4, dimension(:,:,:,:), allocatable	nwp_nudge_nlm_mod::v_dat
real *4, dimension(:,:,:,:), allocatable	nwp_nudge_nlm_mod::t_dat
real *4, dimension(:,:,:,:), allocatable	nwp_nudge_nlm_mod::q_dat
real(fvprc), dimension(:,:), allocatable	nwp_nudge_nlm_mod::gz0
character(len=128), dimension(nfile_max)	nwp_nudge_nlm_mod::file_names
character(len=128)	nwp_nudge_nlm_mod::track_file_name
integer	nwp_nudge_nlm_mod::nfile_total = 0
real(fvprc)	nwp_nudge_nlm_mod::p_wvp = 100.E2
integer	nwp_nudge_nlm_mod::kord_data = 8
logical	nwp_nudge_nlm_mod::tc_mask = .false.
logical	nwp_nudge_nlm_mod::strong_mask = .true.
logical	nwp_nudge_nlm_mod::ibtrack = .false.
logical	nwp_nudge_nlm_mod::nudge_debug = .false.
logical	nwp_nudge_nlm_mod::nudge_t = .false.
logical	nwp_nudge_nlm_mod::nudge_q = .false.
logical	nwp_nudge_nlm_mod::nudge_winds = .true.
logical	nwp_nudge_nlm_mod::nudge_virt = .false.
logical	nwp_nudge_nlm_mod::nudge_hght = .false.
logical	nwp_nudge_nlm_mod::nudge_tpw = .false.
logical	nwp_nudge_nlm_mod::time_varying = .true.
logical	nwp_nudge_nlm_mod::time_track = .false.
real(fvprc)	nwp_nudge_nlm_mod::tau_q = 86400.
real(fvprc)	nwp_nudge_nlm_mod::tau_tpw = 86400.
real(fvprc)	nwp_nudge_nlm_mod::tau_winds = 21600.
real(fvprc)	nwp_nudge_nlm_mod::tau_t = 86400.
real(fvprc)	nwp_nudge_nlm_mod::tau_virt = 86400.
real(fvprc)	nwp_nudge_nlm_mod::tau_hght = 86400.
real(fvprc)	nwp_nudge_nlm_mod::q_min = 1.E-8
real(fvprc)	nwp_nudge_nlm_mod::q_rat
integer	nwp_nudge_nlm_mod::nf_uv = 0
integer	nwp_nudge_nlm_mod::nf_t = 2
integer	nwp_nudge_nlm_mod::kstart = 2
integer	nwp_nudge_nlm_mod::kbot_winds = 0
integer	nwp_nudge_nlm_mod::kbot_t = 0
integer	nwp_nudge_nlm_mod::kbot_q = 1
logical	nwp_nudge_nlm_mod::breed_vortex = .false.
real(fvprc)	nwp_nudge_nlm_mod::tau_vortex = 600.
real(fvprc)	nwp_nudge_nlm_mod::slp_env = 101010.
real(fvprc)	nwp_nudge_nlm_mod::r_min = 200.E3
real(fvprc)	nwp_nudge_nlm_mod::r_inc = 25.E3
real(fvprc), parameter	nwp_nudge_nlm_mod::del_r = 50.E3
integer	nwp_nudge_nlm_mod::year_track_data
integer, parameter	nwp_nudge_nlm_mod::max_storm = 140
integer, parameter	nwp_nudge_nlm_mod::nobs_max = 125
integer	nwp_nudge_nlm_mod::nstorms = 0
integer, dimension(max_storm)	nwp_nudge_nlm_mod::nobs_tc
real *4, dimension(nobs_max, max_storm)	nwp_nudge_nlm_mod::x_obs
real *4, dimension(nobs_max, max_storm)	nwp_nudge_nlm_mod::y_obs
real *4, dimension(nobs_max, max_storm)	nwp_nudge_nlm_mod::mslp_obs
real *4, dimension(nobs_max, max_storm)	nwp_nudge_nlm_mod::mslp_out
real *4, dimension(nobs_max, max_storm)	nwp_nudge_nlm_mod::rad_out
real *4, dimension(nobs_max, max_storm)	nwp_nudge_nlm_mod::time_tc