!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| 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 |
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! TRAVAIL : EN FONCTION DES DECISIONS SUR LA SPECIFICATION DE W !omega=-vitwpresrg/(rd*temp)
| Type | Intent | Optional | 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 |
| Type | Intent | Optional | 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 |
| Type | Intent | Optional | 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 |