FV3 Bundle
Functions/Subroutines | Variables
nwp_nudge_nlm_mod Module Reference

Functions/Subroutines

subroutine, public 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 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_init (npz, zvir, ak, bk, ts, phis)
 
subroutine get_ncep_analysis (ps, u, v, t, q, zvir, ts, nfile, fname)
 
subroutine remap_coef
 
subroutine ncep2fms (sst)
 
subroutine get_int_hght (h_int, npz, ak, bk, ps, delp, ps0, tv)
 
subroutine remap_tq (npz, ak, bk, ps, delp, t, q, kmd, ps0, ta, qa, zvir)
 
subroutine remap_uv (npz, ak, bk, ps, delp, u, v, kmd, ps0, u0, v0)
 
subroutine, public nwp_nudge_end
 
subroutine get_tc_mask (time, mask)
 
subroutine, public breed_slp_inline (nstep, dt, npz, ak, bk, phis, pe, pk, peln, delp, u, v, pt, q, nwat, zvir)
 
subroutine breed_slp (time, dt, npz, ak, bk, ps, phis, delp, ua, va, u_dt, v_dt, pt, q, nwat, zvir)
 
subroutine 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 slp_obs_init
 
real(fvprc) function calday (year, month, day, hour, minute, sec)
 
logical function leap_year (ny)
 
subroutine pmaxmin (qname, a, imax, jmax, fac)
 
subroutine del2_uv (du, dv, cd, kmd, ntimes)
 
subroutine del2_scalar (qdt, cd, kmd, ntimes)
 

Variables

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

Function/Subroutine Documentation

◆ breed_slp()

subroutine nwp_nudge_nlm_mod::breed_slp ( type(time_type), intent(in)  time,
real(fvprc), intent(in)  dt,
integer, intent(in)  npz,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(isd:ied,jsd:jed), intent(in)  ps,
real(fvprc), dimension(isd:ied,jsd:jed), intent(in)  phis,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  delp,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  ua,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  va,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  u_dt,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  v_dt,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  pt,
real(fvprc), dimension(isd:ied,jsd:jed,npz,nwat), intent(inout)  q,
integer, intent(in)  nwat,
real(fvprc), intent(in)  zvir 
)
private

Definition at line 1743 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ breed_slp_inline()

subroutine, public nwp_nudge_nlm_mod::breed_slp_inline ( integer, intent(in)  nstep,
real(fvprc), intent(in)  dt,
integer, intent(in)  npz,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(isd:ied,jsd:jed), intent(in)  phis,
real(fvprc), dimension(is-1:ie+1, npz+1,js-1:je+1), intent(inout)  pe,
real(fvprc), dimension(is:ie,js:je, npz+1), intent(inout)  pk,
real(fvprc), dimension(is:ie,npz+1,js:je), intent(out)  peln,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  delp,
real(fvprc), dimension(isd:ied,jsd:jed+1,npz), intent(inout)  u,
real(fvprc), dimension(isd:ied+1,jsd:jed,npz), intent(inout)  v,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  pt,
real(fvprc), dimension(isd:ied,jsd:jed,npz,*), intent(inout)  q,
integer, intent(in)  nwat,
real(fvprc), intent(in)  zvir 
)

Definition at line 1373 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:

◆ calday()

real(fvprc) function nwp_nudge_nlm_mod::calday ( integer, intent(in)  year,
integer, intent(in)  month,
integer, intent(in)  day,
integer, intent(in)  hour,
integer, intent(in)  minute,
integer, intent(in)  sec 
)
private

Definition at line 2169 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ del2_scalar()

subroutine nwp_nudge_nlm_mod::del2_scalar ( real(fvprc), dimension(is:ie,js:je,kmd), intent(inout)  qdt,
real(fvprc), intent(in)  cd,
integer, intent(in)  kmd,
integer, intent(in)  ntimes 
)
private

Definition at line 2304 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ del2_uv()

subroutine nwp_nudge_nlm_mod::del2_uv ( real(fvprc), dimension(is:ie,js:je,kmd), intent(inout)  du,
real(fvprc), dimension(is:ie,js:je,kmd), intent(inout)  dv,
real(fvprc), intent(in)  cd,
integer, intent(in)  kmd,
integer, intent(in)  ntimes 
)
private

Definition at line 2265 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ do_nwp_nudge()

subroutine, public nwp_nudge_nlm_mod::do_nwp_nudge ( type(time_type), intent(in)  Time,
real(fvprc), intent(in)  dt,
integer, intent(in)  npz,
real(fvprc), dimension(is:ie,js:je), intent(out)  ps_dt,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  u_dt,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  v_dt,
real(fvprc), dimension(is:ie,js:je,npz), intent(out)  t_dt,
real(fvprc), dimension(is:ie,js:je,npz), intent(out)  q_dt,
real(fvprc), intent(in)  zvir,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(is:ie,js:je), intent(out)  ts,
real(fvprc), dimension(isd:ied,jsd:jed), intent(inout)  ps,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  delp,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  ua,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  va,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(inout)  pt,
integer, intent(in)  nwat,
real(fvprc), dimension(isd:ied,jsd:jed,npz,nwat), intent(inout)  q,
real(fvprc), dimension(isd:ied,jsd:jed ), intent(in)  phis 
)

Definition at line 136 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:

◆ get_int_hght()

subroutine nwp_nudge_nlm_mod::get_int_hght ( real(fvprc), dimension(is:ie,js:je), intent(out)  h_int,
integer, intent(in)  npz,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(is:ie,js:je), intent(in)  ps,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(in)  delp,
real(fvprc), dimension(is:ie,js:je), intent(in)  ps0,
real*4, dimension(is:ie,js:je,km), intent(in)  tv 
)
private

Definition at line 1084 of file nwp_nudge_nlm.F90.

Here is the caller graph for this function:

◆ get_ncep_analysis()

subroutine nwp_nudge_nlm_mod::get_ncep_analysis ( real(fvprc), dimension(is:ie,js:je), intent(out)  ps,
real*4, dimension(is:ie,js:je,km), intent(out)  u,
real*4, dimension(is:ie,js:je,km), intent(out)  v,
real*4, dimension(is:ie,js:je,km), intent(out)  t,
real*4, dimension(is:ie,js:je,km), intent(out)  q,
real(fvprc), intent(in)  zvir,
real(fvprc), dimension(is:ie,js:je), intent(out)  ts,
integer, intent(inout)  nfile,
character(len=128), intent(in)  fname 
)
private

Definition at line 725 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ get_obs()

subroutine nwp_nudge_nlm_mod::get_obs ( type(time_type), intent(in)  Time,
real(fvprc), intent(in)  dt,
real(fvprc), intent(in)  zvir,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(isd:ied,jsd:jed), intent(inout)  ps,
real(fvprc), dimension(is:ie,js:je), intent(out)  ts,
real(fvprc), dimension(is:ie,js:je), intent(out)  ps_obs,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(in)  delp,
real(fvprc), dimension(is:ie,js:je,npz), intent(out)  u_obs,
real(fvprc), dimension(is:ie,js:je,npz), intent(out)  v_obs,
real(fvprc), dimension(is:ie,js:je,npz), intent(out)  t_obs,
real(fvprc), dimension(is:ie,js:je,npz), intent(out)  q_obs,
real(fvprc), dimension(is:ie,js:je), intent(out)  tpw_dat,
real(fvprc), dimension(isd:ied,jsd:jed), intent(in)  phis,
real(fvprc), dimension(is:ie,js:je), intent(out)  gz_int,
integer, intent(in)  npz 
)
private

Definition at line 460 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ get_slp_obs()

subroutine nwp_nudge_nlm_mod::get_slp_obs ( type(time_type), intent(in)  time,
integer, intent(in)  nobs,
real*4, dimension(nobs), intent(in)  lon_obs,
real*4, dimension(nobs), intent(in)  lat_obs,
real*4, dimension(nobs), intent(in)  mslp,
real*4, dimension(nobs), intent(in)  slp_out,
real*4, dimension(nobs), intent(in)  r_out,
real*4, dimension(nobs), intent(in)  time_obs,
real(fvprc), intent(out)  x_o,
real(fvprc), intent(out)  y_o,
real(fvprc), intent(out)  slp_o,
real(fvprc), intent(out)  r_vor,
real(fvprc), intent(out)  p_vor,
real(fvprc), intent(in), optional  stime,
real(fvprc), intent(out), optional  fact 
)
private

Definition at line 1967 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ get_tc_mask()

subroutine nwp_nudge_nlm_mod::get_tc_mask ( type(time_type), intent(in)  time,
real(fvprc), dimension(is:ie,js:je), intent(inout)  mask 
)
private

Definition at line 1329 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ leap_year()

logical function nwp_nudge_nlm_mod::leap_year ( integer, intent(in)  ny)
private

Definition at line 2203 of file nwp_nudge_nlm.F90.

Here is the caller graph for this function:

◆ ncep2fms()

subroutine nwp_nudge_nlm_mod::ncep2fms ( real(fvprc), dimension(im,jm), intent(in)  sst)
private

Definition at line 998 of file nwp_nudge_nlm.F90.

Here is the caller graph for this function:

◆ nwp_nudge_end()

subroutine, public nwp_nudge_nlm_mod::nwp_nudge_end ( )

Definition at line 1303 of file nwp_nudge_nlm.F90.

◆ nwp_nudge_init()

subroutine, public nwp_nudge_nlm_mod::nwp_nudge_init ( integer, intent(in)  npz,
real(fvprc), intent(in)  zvir,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(is:ie,js:je), intent(out)  ts,
real(fvprc), dimension(isd:ied,jsd:jed), intent(in)  phis 
)

Definition at line 595 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:

◆ pmaxmin()

subroutine nwp_nudge_nlm_mod::pmaxmin ( character*(*)  qname,
real(fvprc), dimension(imax,jmax)  a,
integer  imax,
integer  jmax,
real(fvprc)  fac 
)
private

Definition at line 2229 of file nwp_nudge_nlm.F90.

Here is the caller graph for this function:

◆ remap_coef()

subroutine nwp_nudge_nlm_mod::remap_coef ( )
private

Definition at line 925 of file nwp_nudge_nlm.F90.

Here is the caller graph for this function:

◆ remap_tq()

subroutine nwp_nudge_nlm_mod::remap_tq ( integer, intent(in)  npz,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(is:ie,js:je), intent(inout)  ps,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(in)  delp,
real*4, dimension(is:ie,js:je,npz), intent(out)  t,
real*4, dimension(is:ie,js:je,npz), intent(out)  q,
integer, intent(in)  kmd,
real(fvprc), dimension(is:ie,js:je), intent(in)  ps0,
real*4, dimension(is:ie,js:je,kmd), intent(in)  ta,
real*4, dimension(is:ie,js:je,kmd), intent(in)  qa,
real(fvprc), intent(in)  zvir 
)
private

Definition at line 1141 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ remap_uv()

subroutine nwp_nudge_nlm_mod::remap_uv ( integer, intent(in)  npz,
real(fvprc), dimension(npz+1), intent(in)  ak,
real(fvprc), dimension(npz+1), intent(in)  bk,
real(fvprc), dimension(is:ie,js:je), intent(inout)  ps,
real(fvprc), dimension(isd:ied,jsd:jed,npz), intent(in)  delp,
real*4, dimension(is:ie,js:je,npz), intent(inout)  u,
real*4, dimension(is:ie,js:je,npz), intent(inout)  v,
integer, intent(in)  kmd,
real(fvprc), dimension(is:ie,js:je), intent(in)  ps0,
real*4, dimension(is:ie,js:je,kmd), intent(in)  u0,
real*4, dimension(is:ie,js:je,kmd), intent(in)  v0 
)
private

Definition at line 1228 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ slp_obs_init()

subroutine nwp_nudge_nlm_mod::slp_obs_init ( )
private

Definition at line 2042 of file nwp_nudge_nlm.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

Variable Documentation

◆ ak0

real(fvprc), dimension(:), allocatable nwp_nudge_nlm_mod::ak0
private

Definition at line 33 of file nwp_nudge_nlm.F90.

◆ bk0

real(fvprc), dimension(:), allocatable nwp_nudge_nlm_mod::bk0
private

Definition at line 33 of file nwp_nudge_nlm.F90.

◆ breed_vortex

logical nwp_nudge_nlm_mod::breed_vortex = .false.
private

Definition at line 103 of file nwp_nudge_nlm.F90.

◆ deg2rad

real(fvprc) nwp_nudge_nlm_mod::deg2rad
private

Definition at line 39 of file nwp_nudge_nlm.F90.

◆ del_r

real(fvprc), parameter nwp_nudge_nlm_mod::del_r = 50.E3
private

Definition at line 109 of file nwp_nudge_nlm.F90.

◆ file_names

character(len=128), dimension(nfile_max) nwp_nudge_nlm_mod::file_names
private

Definition at line 56 of file nwp_nudge_nlm.F90.

◆ gz0

real(fvprc), dimension(:,:), allocatable nwp_nudge_nlm_mod::gz0
private

Definition at line 53 of file nwp_nudge_nlm.F90.

◆ ibtrack

logical nwp_nudge_nlm_mod::ibtrack = .false.
private

Definition at line 64 of file nwp_nudge_nlm.F90.

◆ id1

integer, dimension(:,:), allocatable nwp_nudge_nlm_mod::id1
private

Definition at line 50 of file nwp_nudge_nlm.F90.

◆ id2

integer, dimension(:,:), allocatable nwp_nudge_nlm_mod::id2
private

Definition at line 50 of file nwp_nudge_nlm.F90.

◆ im

integer nwp_nudge_nlm_mod::im
private

Definition at line 30 of file nwp_nudge_nlm.F90.

◆ jdc

integer, dimension(:,:), allocatable nwp_nudge_nlm_mod::jdc
private

Definition at line 50 of file nwp_nudge_nlm.F90.

◆ jm

integer nwp_nudge_nlm_mod::jm
private

Definition at line 31 of file nwp_nudge_nlm.F90.

◆ k_breed

integer nwp_nudge_nlm_mod::k_breed = 0
private

Definition at line 45 of file nwp_nudge_nlm.F90.

◆ k_trop

integer nwp_nudge_nlm_mod::k_trop = 0
private

Definition at line 46 of file nwp_nudge_nlm.F90.

◆ kbot_q

integer nwp_nudge_nlm_mod::kbot_q = 1
private

Definition at line 97 of file nwp_nudge_nlm.F90.

◆ kbot_t

integer nwp_nudge_nlm_mod::kbot_t = 0
private

Definition at line 96 of file nwp_nudge_nlm.F90.

◆ kbot_winds

integer nwp_nudge_nlm_mod::kbot_winds = 0
private

Definition at line 95 of file nwp_nudge_nlm.F90.

◆ km

integer nwp_nudge_nlm_mod::km
private

Definition at line 32 of file nwp_nudge_nlm.F90.

◆ kord_data

integer nwp_nudge_nlm_mod::kord_data = 8
private

Definition at line 60 of file nwp_nudge_nlm.F90.

◆ kstart

integer nwp_nudge_nlm_mod::kstart = 2
private

Definition at line 92 of file nwp_nudge_nlm.F90.

◆ lat

real(fvprc), dimension(:), allocatable nwp_nudge_nlm_mod::lat
private

Definition at line 34 of file nwp_nudge_nlm.F90.

◆ lon

real(fvprc), dimension(:), allocatable nwp_nudge_nlm_mod::lon
private

Definition at line 34 of file nwp_nudge_nlm.F90.

◆ master

logical nwp_nudge_nlm_mod::master
private

Definition at line 37 of file nwp_nudge_nlm.F90.

◆ max_storm

integer, parameter nwp_nudge_nlm_mod::max_storm = 140
private

Definition at line 111 of file nwp_nudge_nlm.F90.

◆ module_is_initialized

logical nwp_nudge_nlm_mod::module_is_initialized = .false.
private

Definition at line 36 of file nwp_nudge_nlm.F90.

◆ mslp_obs

real*4, dimension(nobs_max,max_storm) nwp_nudge_nlm_mod::mslp_obs
private

Definition at line 118 of file nwp_nudge_nlm.F90.

◆ mslp_out

real*4, dimension(nobs_max,max_storm) nwp_nudge_nlm_mod::mslp_out
private

Definition at line 119 of file nwp_nudge_nlm.F90.

◆ nf_t

integer nwp_nudge_nlm_mod::nf_t = 2
private

Definition at line 89 of file nwp_nudge_nlm.F90.

◆ nf_uv

integer nwp_nudge_nlm_mod::nf_uv = 0
private

Definition at line 88 of file nwp_nudge_nlm.F90.

◆ nfile

integer nwp_nudge_nlm_mod::nfile = 1
private

Definition at line 43 of file nwp_nudge_nlm.F90.

◆ nfile_max

integer, parameter nwp_nudge_nlm_mod::nfile_max = 125
private

Definition at line 42 of file nwp_nudge_nlm.F90.

◆ nfile_total

integer nwp_nudge_nlm_mod::nfile_total = 0
private

Definition at line 58 of file nwp_nudge_nlm.F90.

◆ no_obs

logical nwp_nudge_nlm_mod::no_obs
private

Definition at line 38 of file nwp_nudge_nlm.F90.

◆ nobs_max

integer, parameter nwp_nudge_nlm_mod::nobs_max = 125
private

Definition at line 112 of file nwp_nudge_nlm.F90.

◆ nobs_tc

integer, dimension(max_storm) nwp_nudge_nlm_mod::nobs_tc
private

Definition at line 115 of file nwp_nudge_nlm.F90.

◆ nstorms

integer nwp_nudge_nlm_mod::nstorms = 0
private

Definition at line 114 of file nwp_nudge_nlm.F90.

◆ nudge_debug

logical nwp_nudge_nlm_mod::nudge_debug = .false.
private

Definition at line 65 of file nwp_nudge_nlm.F90.

◆ nudge_hght

logical nwp_nudge_nlm_mod::nudge_hght = .false.
private

Definition at line 70 of file nwp_nudge_nlm.F90.

◆ nudge_q

logical nwp_nudge_nlm_mod::nudge_q = .false.
private

Definition at line 67 of file nwp_nudge_nlm.F90.

◆ nudge_t

logical nwp_nudge_nlm_mod::nudge_t = .false.
private

Definition at line 66 of file nwp_nudge_nlm.F90.

◆ nudge_tpw

logical nwp_nudge_nlm_mod::nudge_tpw = .false.
private

Definition at line 71 of file nwp_nudge_nlm.F90.

◆ nudge_virt

logical nwp_nudge_nlm_mod::nudge_virt = .false.
private

Definition at line 69 of file nwp_nudge_nlm.F90.

◆ nudge_winds

logical nwp_nudge_nlm_mod::nudge_winds = .true.
private

Definition at line 68 of file nwp_nudge_nlm.F90.

◆ p_trop

real(fvprc) nwp_nudge_nlm_mod::p_trop = 300.E2
private

Definition at line 47 of file nwp_nudge_nlm.F90.

◆ p_wvp

real(fvprc) nwp_nudge_nlm_mod::p_wvp = 100.E2
private

Definition at line 59 of file nwp_nudge_nlm.F90.

◆ ps_dat

real(fvprc), dimension(:,:,:), allocatable nwp_nudge_nlm_mod::ps_dat
private

Definition at line 51 of file nwp_nudge_nlm.F90.

◆ q_dat

real*4, dimension(:,:,:,:), allocatable nwp_nudge_nlm_mod::q_dat
private

Definition at line 52 of file nwp_nudge_nlm.F90.

◆ q_min

real(fvprc) nwp_nudge_nlm_mod::q_min = 1.E-8
private

Definition at line 85 of file nwp_nudge_nlm.F90.

◆ q_rat

real(fvprc) nwp_nudge_nlm_mod::q_rat
private

Definition at line 86 of file nwp_nudge_nlm.F90.

◆ r_inc

real(fvprc) nwp_nudge_nlm_mod::r_inc = 25.E3
private

Definition at line 108 of file nwp_nudge_nlm.F90.

◆ r_min

real(fvprc) nwp_nudge_nlm_mod::r_min = 200.E3
private

Definition at line 107 of file nwp_nudge_nlm.F90.

◆ rad2deg

real(fvprc) nwp_nudge_nlm_mod::rad2deg
private

Definition at line 39 of file nwp_nudge_nlm.F90.

◆ rad_out

real*4, dimension(nobs_max,max_storm) nwp_nudge_nlm_mod::rad_out
private

Definition at line 120 of file nwp_nudge_nlm.F90.

◆ s2c

real(fvprc), dimension(:,:,:), allocatable nwp_nudge_nlm_mod::s2c
private

Definition at line 49 of file nwp_nudge_nlm.F90.

◆ slp_env

real(fvprc) nwp_nudge_nlm_mod::slp_env = 101010.
private

Definition at line 106 of file nwp_nudge_nlm.F90.

◆ strong_mask

logical nwp_nudge_nlm_mod::strong_mask = .true.
private

Definition at line 63 of file nwp_nudge_nlm.F90.

◆ t_dat

real*4, dimension(:,:,:,:), allocatable nwp_nudge_nlm_mod::t_dat
private

Definition at line 52 of file nwp_nudge_nlm.F90.

◆ tagname

character(len=128) nwp_nudge_nlm_mod::tagname = ''
private

Definition at line 26 of file nwp_nudge_nlm.F90.

◆ tau_hght

real(fvprc) nwp_nudge_nlm_mod::tau_hght = 86400.
private

Definition at line 83 of file nwp_nudge_nlm.F90.

◆ tau_q

real(fvprc) nwp_nudge_nlm_mod::tau_q = 86400.
private

Definition at line 78 of file nwp_nudge_nlm.F90.

◆ tau_t

real(fvprc) nwp_nudge_nlm_mod::tau_t = 86400.
private

Definition at line 81 of file nwp_nudge_nlm.F90.

◆ tau_tpw

real(fvprc) nwp_nudge_nlm_mod::tau_tpw = 86400.
private

Definition at line 79 of file nwp_nudge_nlm.F90.

◆ tau_virt

real(fvprc) nwp_nudge_nlm_mod::tau_virt = 86400.
private

Definition at line 82 of file nwp_nudge_nlm.F90.

◆ tau_vortex

real(fvprc) nwp_nudge_nlm_mod::tau_vortex = 600.
private

Definition at line 104 of file nwp_nudge_nlm.F90.

◆ tau_winds

real(fvprc) nwp_nudge_nlm_mod::tau_winds = 21600.
private

Definition at line 80 of file nwp_nudge_nlm.F90.

◆ tc_mask

logical nwp_nudge_nlm_mod::tc_mask = .false.
private

Definition at line 62 of file nwp_nudge_nlm.F90.

◆ time_interval

integer nwp_nudge_nlm_mod::time_interval = 6*3600
private

Definition at line 41 of file nwp_nudge_nlm.F90.

◆ time_nudge

real(fvprc) nwp_nudge_nlm_mod::time_nudge = 0.
private

Definition at line 40 of file nwp_nudge_nlm.F90.

◆ time_tc

real*4, dimension(nobs_max,max_storm) nwp_nudge_nlm_mod::time_tc
private

Definition at line 121 of file nwp_nudge_nlm.F90.

◆ time_track

logical nwp_nudge_nlm_mod::time_track = .false.
private

Definition at line 73 of file nwp_nudge_nlm.F90.

◆ time_varying

logical nwp_nudge_nlm_mod::time_varying = .true.
private

Definition at line 72 of file nwp_nudge_nlm.F90.

◆ track_file_name

character(len=128) nwp_nudge_nlm_mod::track_file_name
private

Definition at line 57 of file nwp_nudge_nlm.F90.

◆ u_dat

real*4, dimension(:,:,:,:), allocatable nwp_nudge_nlm_mod::u_dat
private

Definition at line 52 of file nwp_nudge_nlm.F90.

◆ v_dat

real*4, dimension(:,:,:,:), allocatable nwp_nudge_nlm_mod::v_dat
private

Definition at line 52 of file nwp_nudge_nlm.F90.

◆ version

character(len=128) nwp_nudge_nlm_mod::version = ''
private

Definition at line 25 of file nwp_nudge_nlm.F90.

◆ x_obs

real*4, dimension(nobs_max,max_storm) nwp_nudge_nlm_mod::x_obs
private

Definition at line 116 of file nwp_nudge_nlm.F90.

◆ y_obs

real*4, dimension(nobs_max,max_storm) nwp_nudge_nlm_mod::y_obs
private

Definition at line 117 of file nwp_nudge_nlm.F90.

◆ year_track_data

integer nwp_nudge_nlm_mod::year_track_data
private

Definition at line 110 of file nwp_nudge_nlm.F90.