mod_1D_cases_read_std Module

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



***************



Uses

    • netcdf
  • module~~mod_1d_cases_read_std~~UsesGraph module~mod_1d_cases_read_std mod_1D_cases_read_std netcdf netcdf module~mod_1d_cases_read_std->netcdf

Used by

  • module~~mod_1d_cases_read_std~~UsedByGraph module~mod_1d_cases_read_std mod_1D_cases_read_std proc~scm scm proc~scm->module~mod_1d_cases_read_std

Contents


Variables

Type Visibility Attributes Name Initial
character(len=80), public :: fich_cas
integer, public :: nlev_cas
integer, public :: nt_cas
real, public, allocatable :: plev_cas(:,:)
real, public, allocatable :: plevh_cas(:)
real, public, allocatable :: ap_cas(:)
real, public, allocatable :: bp_cas(:)
real, public, allocatable :: z_cas(:,:)
real, public, allocatable :: zh_cas(:)
real, public, allocatable :: t_cas(:,:)
real, public, allocatable :: q_cas(:,:)
real, public, allocatable :: qv_cas(:,:)
real, public, allocatable :: ql_cas(:,:)
real, public, allocatable :: qi_cas(:,:)
real, public, allocatable :: rh_cas(:,:)
real, public, allocatable :: th_cas(:,:)
real, public, allocatable :: thv_cas(:,:)
real, public, allocatable :: thl_cas(:,:)
real, public, allocatable :: rv_cas(:,:)
real, public, allocatable :: u_cas(:,:)
real, public, allocatable :: v_cas(:,:)
real, public, allocatable :: vitw_cas(:,:)
real, public, allocatable :: omega_cas(:,:)
real, public, allocatable :: tke_cas(:,:)
real, public, allocatable :: ht_cas(:,:)
real, public, allocatable :: vt_cas(:,:)
real, public, allocatable :: dt_cas(:,:)
real, public, allocatable :: dtrad_cas(:,:)
real, public, allocatable :: hth_cas(:,:)
real, public, allocatable :: vth_cas(:,:)
real, public, allocatable :: dth_cas(:,:)
real, public, allocatable :: hq_cas(:,:)
real, public, allocatable :: vq_cas(:,:)
real, public, allocatable :: dq_cas(:,:)
real, public, allocatable :: hr_cas(:,:)
real, public, allocatable :: vr_cas(:,:)
real, public, allocatable :: dr_cas(:,:)
real, public, allocatable :: hu_cas(:,:)
real, public, allocatable :: vu_cas(:,:)
real, public, allocatable :: du_cas(:,:)
real, public, allocatable :: hv_cas(:,:)
real, public, allocatable :: vv_cas(:,:)
real, public, allocatable :: dv_cas(:,:)
real, public, allocatable :: ug_cas(:,:)
real, public, allocatable :: vg_cas(:,:)
real, public, allocatable :: temp_nudg_cas(:,:)
real, public, allocatable :: qv_nudg_cas(:,:)
real, public, allocatable :: u_nudg_cas(:,:)
real, public, allocatable :: v_nudg_cas(:,:)
real, public, allocatable :: invtau_temp_nudg_cas(:,:)
real, public, allocatable :: invtau_qv_nudg_cas(:,:)
real, public, allocatable :: invtau_u_nudg_cas(:,:)
real, public, allocatable :: invtau_v_nudg_cas(:,:)
real, public, allocatable :: lat_cas(:)
real, public, allocatable :: sens_cas(:)
real, public, allocatable :: tskin_cas(:)
real, public, allocatable :: ts_cas(:)
real, public, allocatable :: ps_cas(:)
real, public, allocatable :: ustar_cas(:)
real, public, allocatable :: uw_cas(:,:)
real, public, allocatable :: vw_cas(:,:)
real, public, allocatable :: q1_cas(:,:)
real, public, allocatable :: q2_cas(:,:)
real, public, allocatable :: tkes_cas(:)
real, public, allocatable :: plev_prof_cas(:)
real, public, allocatable :: t_prof_cas(:)
real, public, allocatable :: theta_prof_cas(:)
real, public, allocatable :: thl_prof_cas(:)
real, public, allocatable :: thv_prof_cas(:)
real, public, allocatable :: q_prof_cas(:)
real, public, allocatable :: qv_prof_cas(:)
real, public, allocatable :: ql_prof_cas(:)
real, public, allocatable :: qi_prof_cas(:)
real, public, allocatable :: rh_prof_cas(:)
real, public, allocatable :: rv_prof_cas(:)
real, public, allocatable :: u_prof_cas(:)
real, public, allocatable :: v_prof_cas(:)
real, public, allocatable :: vitw_prof_cas(:)
real, public, allocatable :: omega_prof_cas(:)
real, public, allocatable :: tke_prof_cas(:)
real, public, allocatable :: ug_prof_cas(:)
real, public, allocatable :: vg_prof_cas(:)
real, public, allocatable :: temp_nudg_prof_cas(:)
real, public, allocatable :: qv_nudg_prof_cas(:)
real, public, allocatable :: u_nudg_prof_cas(:)
real, public, allocatable :: v_nudg_prof_cas(:)
real, public, allocatable :: invtau_temp_nudg_prof_cas(:)
real, public, allocatable :: invtau_qv_nudg_prof_cas(:)
real, public, allocatable :: invtau_u_nudg_prof_cas(:)
real, public, allocatable :: invtau_v_nudg_prof_cas(:)
real, public, allocatable :: ht_prof_cas(:)
real, public, allocatable :: hth_prof_cas(:)
real, public, allocatable :: hq_prof_cas(:)
real, public, allocatable :: vt_prof_cas(:)
real, public, allocatable :: vth_prof_cas(:)
real, public, allocatable :: vq_prof_cas(:)
real, public, allocatable :: dt_prof_cas(:)
real, public, allocatable :: dth_prof_cas(:)
real, public, allocatable :: dtrad_prof_cas(:)
real, public, allocatable :: dq_prof_cas(:)
real, public, allocatable :: hu_prof_cas(:)
real, public, allocatable :: hv_prof_cas(:)
real, public, allocatable :: vu_prof_cas(:)
real, public, allocatable :: vv_prof_cas(:)
real, public, allocatable :: du_prof_cas(:)
real, public, allocatable :: dv_prof_cas(:)
real, public, allocatable :: uw_prof_cas(:)
real, public, allocatable :: vw_prof_cas(:)
real, public, allocatable :: q1_prof_cas(:)
real, public, allocatable :: q2_prof_cas(:)
real, public :: o3_cas
real, public :: lat_prof_cas
real, public :: sens_prof_cas
real, public :: ts_prof_cas
real, public :: tskin_prof_cas
real, public :: ps_prof_cas
real, public :: ustar_prof_cas
real, public :: tkes_prof_cas
real, public :: orog_cas
real, public :: albedo_cas
real, public :: emiss_cas
real, public :: q_skin_cas
real, public :: mom_rough
real, public :: heat_rough
real, public :: rugos_cas
real, public :: sand_cas
real, public :: clay_cas

Subroutines

public subroutine read_SCM_cas()

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

None

public subroutine deallocate2_1D_cases()

Arguments

None

public subroutine read_SCM(nid, nlevel, ntime, ap, bp, zz, pp, zzh, pph, temp, theta, thv, thl, qv, ql, qi, rh, rv, u, v, vitw, omega, tke, ug, vg, temp_nudg, qv_nudg, u_nudg, v_nudg, invtau_temp_nudg, invtau_qv_nudg, invtau_u_nudg, invtau_v_nudg, du, hu, vu, dv, hv, vv, dt, ht, vt, dq, hq, vq, dth, hth, vth, dr, hr, vr, dtrad, sens, flat, ts, tskin, ps, ustar, tkes, uw, vw, q1, q2, orog_cas, albedo_cas, emiss_cas, q_skin_cas, mom_rough, heat_rough, o3_cas, rugos_cas, clay_cas, sand_cas)

!! TRAVAIL : EN FONCTION DES DECISIONS SUR LA SPECIFICATION DE W !omega=-vitwpresrg/(rd*temp)

Arguments

Type IntentOptional Attributes Name
integer :: nid
integer :: nlevel
integer :: ntime
real :: ap(nlevel+1)
real :: bp(nlevel+1)
real :: zz(nlevel,ntime)
real :: pp(nlevel,ntime)
real :: zzh(nlevel+1)
real :: pph(nlevel+1)
real :: temp(nlevel,ntime)
real :: theta(nlevel,ntime)
real :: thv(nlevel,ntime)
real :: thl(nlevel,ntime)
real :: qv(nlevel,ntime)
real :: ql(nlevel,ntime)
real :: qi(nlevel,ntime)
real :: rh(nlevel,ntime)
real :: rv(nlevel,ntime)
real :: u(nlevel,ntime)
real :: v(nlevel,ntime)
real :: vitw(nlevel,ntime)
real :: omega(nlevel,ntime)
real :: tke(nlevel,ntime)
real :: ug(nlevel,ntime)
real :: vg(nlevel,ntime)
real :: temp_nudg(nlevel,ntime)
real :: qv_nudg(nlevel,ntime)
real :: u_nudg(nlevel,ntime)
real :: v_nudg(nlevel,ntime)
real :: invtau_temp_nudg(nlevel,ntime)
real :: invtau_qv_nudg(nlevel,ntime)
real :: invtau_u_nudg(nlevel,ntime)
real :: invtau_v_nudg(nlevel,ntime)
real :: du(nlevel,ntime)
real :: hu(nlevel,ntime)
real :: vu(nlevel,ntime)
real :: dv(nlevel,ntime)
real :: hv(nlevel,ntime)
real :: vv(nlevel,ntime)
real :: dt(nlevel,ntime)
real :: ht(nlevel,ntime)
real :: vt(nlevel,ntime)
real :: dq(nlevel,ntime)
real :: hq(nlevel,ntime)
real :: vq(nlevel,ntime)
real :: dth(nlevel,ntime)
real :: hth(nlevel,ntime)
real :: vth(nlevel,ntime)
real :: dr(nlevel,ntime)
real :: hr(nlevel,ntime)
real :: vr(nlevel,ntime)
real :: dtrad(nlevel,ntime)
real :: sens(ntime)
real :: flat(ntime)
real :: ts(ntime)
real :: tskin(ntime)
real :: ps(ntime)
real :: ustar(ntime)
real :: tkes(ntime)
real :: uw(nlevel,ntime)
real :: vw(nlevel,ntime)
real :: q1(nlevel,ntime)
real :: q2(nlevel,ntime)
real :: orog_cas
real :: albedo_cas
real :: emiss_cas
real :: q_skin_cas
real :: mom_rough
real :: heat_rough
real :: o3_cas
real :: rugos_cas
real :: clay_cas
real :: sand_cas

public subroutine interp_case_time_std(day, day1, annee_ref, nt_cas, nlev_cas, ts_cas, tskin_cas, ps_cas, plev_cas, t_cas, theta_cas, thv_cas, thl_cas, qv_cas, ql_cas, qi_cas, u_cas, v_cas, ug_cas, vg_cas, temp_nudg_cas, qv_nudg_cas, u_nudg_cas, v_nudg_cas, invtau_temp_nudg_cas, invtau_qv_nudg_cas, invtau_u_nudg_cas, invtau_v_nudg_cas, vitw_cas, omega_cas, tke_cas, du_cas, hu_cas, vu_cas, dv_cas, hv_cas, vv_cas, dt_cas, ht_cas, vt_cas, dtrad_cas, dq_cas, hq_cas, vq_cas, dth_cas, hth_cas, vth_cas, lat_cas, sens_cas, ustar_cas, uw_cas, vw_cas, q1_cas, q2_cas, tkes_cas, ts_prof_cas, tskin_prof_cas, ps_prof_cas, plev_prof_cas, t_prof_cas, theta_prof_cas, thv_prof_cas, thl_prof_cas, qv_prof_cas, ql_prof_cas, qi_prof_cas, u_prof_cas, v_prof_cas, ug_prof_cas, vg_prof_cas, temp_nudg_prof_cas, qv_nudg_prof_cas, u_nudg_prof_cas, v_nudg_prof_cas, invtau_temp_nudg_prof_cas, invtau_qv_nudg_prof_cas, invtau_u_nudg_prof_cas, invtau_v_nudg_prof_cas, vitw_prof_cas, omega_prof_cas, tke_prof_cas, du_prof_cas, hu_prof_cas, vu_prof_cas, dv_prof_cas, hv_prof_cas, vv_prof_cas, dt_prof_cas, ht_prof_cas, vt_prof_cas, dtrad_prof_cas, dq_prof_cas, hq_prof_cas, vq_prof_cas, dth_prof_cas, hth_prof_cas, vth_prof_cas, lat_prof_cas, sens_prof_cas, ustar_prof_cas, uw_prof_cas, vw_prof_cas, q1_prof_cas, q2_prof_cas, tkes_prof_cas)

Arguments

Type IntentOptional Attributes Name
real :: day
real :: day1
integer :: annee_ref
integer :: nt_cas
integer :: nlev_cas
real :: ts_cas(nt_cas)
real :: tskin_cas(nt_cas)
real :: ps_cas(nt_cas)
real :: plev_cas(nlev_cas,nt_cas)
real :: t_cas(nlev_cas,nt_cas)
real :: theta_cas(nlev_cas,nt_cas)
real :: thv_cas(nlev_cas,nt_cas)
real :: thl_cas(nlev_cas,nt_cas)
real :: qv_cas(nlev_cas,nt_cas)
real :: ql_cas(nlev_cas,nt_cas)
real :: qi_cas(nlev_cas,nt_cas)
real :: u_cas(nlev_cas,nt_cas)
real :: v_cas(nlev_cas,nt_cas)
real :: ug_cas(nlev_cas,nt_cas)
real :: vg_cas(nlev_cas,nt_cas)
real :: temp_nudg_cas(nlev_cas,nt_cas)
real :: qv_nudg_cas(nlev_cas,nt_cas)
real :: u_nudg_cas(nlev_cas,nt_cas)
real :: v_nudg_cas(nlev_cas,nt_cas)
real :: invtau_temp_nudg_cas(nlev_cas,nt_cas)
real :: invtau_qv_nudg_cas(nlev_cas,nt_cas)
real :: invtau_u_nudg_cas(nlev_cas,nt_cas)
real :: invtau_v_nudg_cas(nlev_cas,nt_cas)
real :: vitw_cas(nlev_cas,nt_cas)
real :: omega_cas(nlev_cas,nt_cas)
real :: tke_cas(nlev_cas,nt_cas)
real :: du_cas(nlev_cas,nt_cas)
real :: hu_cas(nlev_cas,nt_cas)
real :: vu_cas(nlev_cas,nt_cas)
real :: dv_cas(nlev_cas,nt_cas)
real :: hv_cas(nlev_cas,nt_cas)
real :: vv_cas(nlev_cas,nt_cas)
real :: dt_cas(nlev_cas,nt_cas)
real :: ht_cas(nlev_cas,nt_cas)
real :: vt_cas(nlev_cas,nt_cas)
real :: dtrad_cas(nlev_cas,nt_cas)
real :: dq_cas(nlev_cas,nt_cas)
real :: hq_cas(nlev_cas,nt_cas)
real :: vq_cas(nlev_cas,nt_cas)
real :: dth_cas(nlev_cas,nt_cas)
real :: hth_cas(nlev_cas,nt_cas)
real :: vth_cas(nlev_cas,nt_cas)
real :: lat_cas(nt_cas)
real :: sens_cas(nt_cas)
real :: ustar_cas(nt_cas)
real :: uw_cas(nlev_cas,nt_cas)
real :: vw_cas(nlev_cas,nt_cas)
real :: q1_cas(nlev_cas,nt_cas)
real :: q2_cas(nlev_cas,nt_cas)
real :: tkes_cas(nt_cas)
real :: ts_prof_cas
real :: tskin_prof_cas
real :: ps_prof_cas
real :: plev_prof_cas(nlev_cas)
real :: t_prof_cas(nlev_cas)
real :: theta_prof_cas(nlev_cas)
real :: thv_prof_cas(nlev_cas)
real :: thl_prof_cas(nlev_cas)
real :: qv_prof_cas(nlev_cas)
real :: ql_prof_cas(nlev_cas)
real :: qi_prof_cas(nlev_cas)
real :: u_prof_cas(nlev_cas)
real :: v_prof_cas(nlev_cas)
real :: ug_prof_cas(nlev_cas)
real :: vg_prof_cas(nlev_cas)
real :: temp_nudg_prof_cas(nlev_cas)
real :: qv_nudg_prof_cas(nlev_cas)
real :: u_nudg_prof_cas(nlev_cas)
real :: v_nudg_prof_cas(nlev_cas)
real :: invtau_temp_nudg_prof_cas(nlev_cas)
real :: invtau_qv_nudg_prof_cas(nlev_cas)
real :: invtau_u_nudg_prof_cas(nlev_cas)
real :: invtau_v_nudg_prof_cas(nlev_cas)
real :: vitw_prof_cas(nlev_cas)
real :: omega_prof_cas(nlev_cas)
real :: tke_prof_cas(nlev_cas)
real :: du_prof_cas(nlev_cas)
real :: hu_prof_cas(nlev_cas)
real :: vu_prof_cas(nlev_cas)
real :: dv_prof_cas(nlev_cas)
real :: hv_prof_cas(nlev_cas)
real :: vv_prof_cas(nlev_cas)
real :: dt_prof_cas(nlev_cas)
real :: ht_prof_cas(nlev_cas)
real :: vt_prof_cas(nlev_cas)
real :: dtrad_prof_cas(nlev_cas)
real :: dq_prof_cas(nlev_cas)
real :: hq_prof_cas(nlev_cas)
real :: vq_prof_cas(nlev_cas)
real :: dth_prof_cas(nlev_cas)
real :: hth_prof_cas(nlev_cas)
real :: vth_prof_cas(nlev_cas)
real :: lat_prof_cas
real :: sens_prof_cas
real :: ustar_prof_cas
real :: uw_prof_cas(nlev_cas)
real :: vw_prof_cas(nlev_cas)
real :: q1_prof_cas(nlev_cas)
real :: q2_prof_cas(nlev_cas)
real :: tkes_prof_cas

public subroutine interp2_case_vertical_std(play, plev, nlev_cas, plev_prof_cas, t_prof_cas, th_prof_cas, thv_prof_cas, thl_prof_cas, qv_prof_cas, ql_prof_cas, qi_prof_cas, u_prof_cas, v_prof_cas, ug_prof_cas, vg_prof_cas, temp_nudg_prof_cas, qv_nudg_prof_cas, u_nudg_prof_cas, v_nudg_prof_cas, invtau_temp_nudg_prof_cas, invtau_qv_nudg_prof_cas, invtau_u_nudg_prof_cas, invtau_v_nudg_prof_cas, vitw_prof_cas, omega_prof_cas, tke_prof_cas, du_prof_cas, hu_prof_cas, vu_prof_cas, dv_prof_cas, hv_prof_cas, vv_prof_cas, dt_prof_cas, ht_prof_cas, vt_prof_cas, dtrad_prof_cas, dq_prof_cas, hq_prof_cas, vq_prof_cas, dth_prof_cas, hth_prof_cas, vth_prof_cas, t_mod_cas, theta_mod_cas, thv_mod_cas, thl_mod_cas, qv_mod_cas, ql_mod_cas, qi_mod_cas, u_mod_cas, v_mod_cas, ug_mod_cas, vg_mod_cas, temp_nudg_mod_cas, qv_nudg_mod_cas, u_nudg_mod_cas, v_nudg_mod_cas, invtau_temp_nudg_mod_cas, invtau_qv_nudg_mod_cas, invtau_u_nudg_mod_cas, invtau_v_nudg_mod_cas, w_mod_cas, omega_mod_cas, tke_mod_cas, du_mod_cas, hu_mod_cas, vu_mod_cas, dv_mod_cas, hv_mod_cas, vv_mod_cas, dt_mod_cas, ht_mod_cas, vt_mod_cas, dtrad_mod_cas, dq_mod_cas, hq_mod_cas, vq_mod_cas, dth_mod_cas, hth_mod_cas, vth_mod_cas, mxcalc)

Arguments

Type IntentOptional Attributes Name
real :: play(llm)
real :: plev(llm+1)
integer :: nlev_cas
real :: plev_prof_cas(nlev_cas)
real :: t_prof_cas(nlev_cas)
real :: th_prof_cas(nlev_cas)
real :: thv_prof_cas(nlev_cas)
real :: thl_prof_cas(nlev_cas)
real :: qv_prof_cas(nlev_cas)
real :: ql_prof_cas(nlev_cas)
real :: qi_prof_cas(nlev_cas)
real :: u_prof_cas(nlev_cas)
real :: v_prof_cas(nlev_cas)
real :: ug_prof_cas(nlev_cas)
real :: vg_prof_cas(nlev_cas)
real :: temp_nudg_prof_cas(nlev_cas)
real :: qv_nudg_prof_cas(nlev_cas)
real :: u_nudg_prof_cas(nlev_cas)
real :: v_nudg_prof_cas(nlev_cas)
real :: invtau_temp_nudg_prof_cas(nlev_cas)
real :: invtau_qv_nudg_prof_cas(nlev_cas)
real :: invtau_u_nudg_prof_cas(nlev_cas)
real :: invtau_v_nudg_prof_cas(nlev_cas)
real :: vitw_prof_cas(nlev_cas)
real :: omega_prof_cas(nlev_cas)
real :: tke_prof_cas(nlev_cas)
real :: du_prof_cas(nlev_cas)
real :: hu_prof_cas(nlev_cas)
real :: vu_prof_cas(nlev_cas)
real :: dv_prof_cas(nlev_cas)
real :: hv_prof_cas(nlev_cas)
real :: vv_prof_cas(nlev_cas)
real :: dt_prof_cas(nlev_cas)
real :: ht_prof_cas(nlev_cas)
real :: vt_prof_cas(nlev_cas)
real :: dtrad_prof_cas(nlev_cas)
real :: dq_prof_cas(nlev_cas)
real :: hq_prof_cas(nlev_cas)
real :: vq_prof_cas(nlev_cas)
real :: dth_prof_cas(nlev_cas)
real :: hth_prof_cas(nlev_cas)
real :: vth_prof_cas(nlev_cas)
real :: t_mod_cas(llm)
real :: theta_mod_cas(llm)
real :: thv_mod_cas(llm)
real :: thl_mod_cas(llm)
real :: qv_mod_cas(llm)
real :: ql_mod_cas(llm)
real :: qi_mod_cas(llm)
real :: u_mod_cas(llm)
real :: v_mod_cas(llm)
real :: ug_mod_cas(llm)
real :: vg_mod_cas(llm)
real :: temp_nudg_mod_cas(llm)
real :: qv_nudg_mod_cas(llm)
real :: u_nudg_mod_cas(llm)
real :: v_nudg_mod_cas(llm)
real :: invtau_temp_nudg_mod_cas(llm)
real :: invtau_qv_nudg_mod_cas(llm)
real :: invtau_u_nudg_mod_cas(llm)
real :: invtau_v_nudg_mod_cas(llm)
real :: w_mod_cas(llm)
real :: omega_mod_cas(llm)
real :: tke_mod_cas(llm+1)
real :: du_mod_cas(llm)
real :: hu_mod_cas(llm)
real :: vu_mod_cas(llm)
real :: dv_mod_cas(llm)
real :: hv_mod_cas(llm)
real :: vv_mod_cas(llm)
real :: dt_mod_cas(llm)
real :: ht_mod_cas(llm)
real :: vt_mod_cas(llm)
real :: dtrad_mod_cas(llm)
real :: dq_mod_cas(llm)
real :: hq_mod_cas(llm)
real :: vq_mod_cas(llm)
real :: dth_mod_cas(llm)
real :: hth_mod_cas(llm)
real :: vth_mod_cas(llm)
integer :: mxcalc