mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-16 19:50:50 +01:00
1527 lines
36 KiB
Fortran
Executable File
1527 lines
36 KiB
Fortran
Executable File
if(kc) then
|
|
if(iang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call sss_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call ssp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call ssd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call ssf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call ssg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call ssh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call ssi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(iang.eq.1) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call pss_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call psp_kc_IN_ijk_GHP(
|
|
#include "dfvariables_GHP_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call psd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call psf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call psg_kc_IN_ijk_GHP(
|
|
#include "dfvariables_GHP_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call psh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call psi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call pps_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call ppp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call ppd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call ppf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call ppg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call pph_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call ppi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.2) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call dss_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call dsp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call dsd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call dsf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call dsg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call dsh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call dsi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call dps_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call dpp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call dpd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call dpf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call dpg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call dph_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call dpi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call dds_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call ddp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call ddd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call ddf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call ddg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call ddh_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call ddi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.3) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call fss_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call fsp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call fsd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call fsf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call fsg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call fsh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call fsi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call fps_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call fpp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call fpd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call fpf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call fpg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call fph_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call fpi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call fds_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call fdp_kc_IN_ijk_RYS(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call fdd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call fdf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call fdg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call fdh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call fdi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.3) then
|
|
if(kang.eq.0) then
|
|
call ffs_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call ffp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call ffd_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call fff_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call ffg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call ffh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call ffi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.4) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call gss_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call gsp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call gsd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call gsf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call gsg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call gsh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call gsi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call gps_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call gpp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call gpd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call gpf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call gpg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call gph_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call gpi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call gds_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call gdp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call gdd_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call gdf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call gdg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call gdh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call gdi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.3) then
|
|
if(kang.eq.0) then
|
|
call gfs_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call gfp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call gfd_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call gff_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call gfg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call gfh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call gfi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.4) then
|
|
if(kang.eq.0) then
|
|
call ggs_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call ggp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call ggd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call ggf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call ggg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call ggh_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call ggi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.5) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call hss_kc_IN_ijk_RYS(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call hsp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call hsd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call hsf_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call hsg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call hsh_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call hsi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call hps_kc_IN_ijk_RYS(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call hpp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call hpd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call hpf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call hpg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call hph_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call hpi_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call hds_kc_IN_ijk_RYS(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call hdp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call hdd_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call hdf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call hdg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call hdh_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call hdi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.3) then
|
|
if(kang.eq.0) then
|
|
call hfs_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call hfp_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call hfd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call hff_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call hfg_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call hfh_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call hfi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.4) then
|
|
if(kang.eq.0) then
|
|
call hgs_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call hgp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call hgd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call hgf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call hgg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call hgh_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call hgi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
elseif(jang.eq.5) then
|
|
if(kang.eq.0) then
|
|
call hhs_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.1) then
|
|
call hhp_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.2) then
|
|
call hhd_kc_IN_ijk(
|
|
#include "dfvariables_IN_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.3) then
|
|
call hhf_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.4) then
|
|
call hhg_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.5) then
|
|
call hhh_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
elseif(kang.eq.6) then
|
|
call hhi_kc_OUT_ijk(
|
|
#include "dfvariables_OUT_ijk_kc.f"
|
|
$)
|
|
else ! kang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !kang
|
|
else !jang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !jang
|
|
else !iang.gt.6
|
|
#include "dfint_call_kc.f"
|
|
endif !iang
|
|
|
|
else !kc
|
|
if(iang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call sss_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call ssp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call ssd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call ssf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call ssg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call ssh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call ssi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(iang.eq.1) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call pss_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call psp_IN_ijk_GHP(
|
|
$dfgcn,
|
|
#include "dfvariables_GHP.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call psd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call psf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call psg_IN_ijk_GHP(
|
|
$dfgcn,
|
|
#include "dfvariables_GHP.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call psh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call psi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call pps_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call ppp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call ppd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call ppf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call ppg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call pph_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call ppi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.2) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call dss_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call dsp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call dsd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call dsf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call dsg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call dsh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call dsi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call dps_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call dpp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call dpd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call dpf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call dpg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call dph_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call dpi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call dds_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call ddp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call ddd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call ddf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call ddg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call ddh_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call ddi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.3) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call fss_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call fsp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call fsd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call fsf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call fsg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call fsh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call fsi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call fps_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call fpp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call fpd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call fpf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call fpg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call fph_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call fpi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call fds_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call fdp_IN_ijk_RYS(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call fdd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call fdf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call fdg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call fdh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call fdi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.3) then
|
|
if(kang.eq.0) then
|
|
call ffs_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call ffp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call ffd_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call fff_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call ffg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call ffh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call ffi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.4) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call gss_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call gsp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call gsd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call gsf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call gsg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call gsh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call gsi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call gps_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call gpp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call gpd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call gpf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call gpg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call gph_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call gpi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call gds_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call gdp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call gdd_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call gdf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call gdg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call gdh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call gdi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.3) then
|
|
if(kang.eq.0) then
|
|
call gfs_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call gfp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call gfd_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call gff_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call gfg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call gfh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call gfi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.4) then
|
|
if(kang.eq.0) then
|
|
call ggs_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call ggp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call ggd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call ggf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call ggg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call ggh_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call ggi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
endif !jang
|
|
elseif(iang.eq.5) then
|
|
if(jang.eq.0) then
|
|
if(kang.eq.0) then
|
|
call hss_IN_ijk_RYS(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call hsp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call hsd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call hsf_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call hsg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call hsh_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call hsi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.1) then
|
|
if(kang.eq.0) then
|
|
call hps_IN_ijk_RYS(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call hpp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call hpd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call hpf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call hpg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call hph_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call hpi_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.2) then
|
|
if(kang.eq.0) then
|
|
call hds_IN_ijk_RYS(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call hdp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call hdd_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call hdf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call hdg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call hdh_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call hdi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.3) then
|
|
if(kang.eq.0) then
|
|
call hfs_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call hfp_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call hfd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call hff_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call hfg_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call hfh_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call hfi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.4) then
|
|
if(kang.eq.0) then
|
|
call hgs_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call hgp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call hgd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call hgf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call hgg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call hgh_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call hgi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
elseif(jang.eq.5) then
|
|
if(kang.eq.0) then
|
|
call hhs_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.1) then
|
|
call hhp_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.2) then
|
|
call hhd_IN_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_IN_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.3) then
|
|
call hhf_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.4) then
|
|
call hhg_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.5) then
|
|
call hhh_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
elseif(kang.eq.6) then
|
|
call hhi_OUT_ijk(
|
|
$dfgcn,
|
|
#include "dfvariables_OUT_ijk.f"
|
|
$,gck,kp)
|
|
else ! kang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !kang
|
|
else !jang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !jang
|
|
else !iang.gt.6
|
|
#include "dfint_call.f"
|
|
endif !iang
|
|
|
|
endif !kc
|