use global use component_prameter use constant use time_control use LOCAL_RESM implicit none character*20 :: Para_Inlst01,Para_Inlst02,Para_Inlst03 character*20 :: Para_Inlst04,Para_Inlst05,Para_Inlst06,Para_Inlst07 real*8 :: DX_3DV_Input(100),DY_3DV_Input(100),DZ_3DV_Input(100) real*8 :: VELX_3DV_Input,VELY_3DV_Input,VELZ_3DV_Input real*8 :: ANGX_3DV_Input,ANGY_3DV_Input,ANGZ_3DV_Input integer :: CV_Structure_x,CV_Structure_y,CV_Structure_z real*8 :: Gama_CV,Gama_X,Gama_Y,Gama_z integer :: AQCVIN_x,AQCVIN_y,AQCVIN_z real*8 :: AQQ_Input,AQT_Input, AQH_Input character*20 :: INDEX_ISIDE_3DCV, INDEX_OSIDE_3DCV real*8 temp_tterm integer:: N3DV, I3DV integer:: I3DJX, I3DJY, I3DJZ integer:: NX_3DJX,NY_3DJX,NZ_3DJX integer:: NX_3DJY,NY_3DJY,NZ_3DJY integer:: NX_3DJZ,NY_3DJZ,NZ_3DJZ integer:: INCV_X,INCV_Y,INCV_Z integer:: OUTCV_X,OUTCV_Y,OUTCV_Z integer:: Nin_3Dpool,Nout_3Dpool integer:: In_3DPool_X(1000), In_3DPool_Y(1000),In_3DPool_Z(1000) integer:: Out_3DPool_X(1000), Out_3DPool_Y(1000),Out_3DPool_Z(1000) integer:: In_3DV,Out_3DV character*20 :: Connect_InName,Connect_OutName character*20 :: InName_Con(1000),OutName_Con(1000) character*20 :: Index_Oside_3DCV_INPUT(1000), Index_Iside_3DCV_INPUT(1000) integer:: IO_3DPool_X(1000), IO_3DPool_Y(1000), IO_3DPool_Z(1000) character*20 :: Index_IOside_3DCV_INPUT(1000), IOName_Con(1000) integer:: IO_3DV integer:: IO_Cv_X,IO_Cv_Y,IO_Cv_Z ,NIO_3Dpool character*20 :: Index_IOside_3DCV, Connect_IOName integer:: NX_3DV_Input,NY_3DV_Input,NZ_3DV_Input integer:: NTOTAL_3DV,NTOTAL_3DJX,NTOTAL_3DJY,NTOTAL_3DJZ integer:: IZ_3DV ,IX_3DV ,IY_3DV integer:: IZ_3DJX ,IX_3DJX ,IY_3DJX integer:: IZ_3DJY ,IX_3DJY ,IY_3DJY integer:: IZ_3DJZ ,IX_3DJZ ,IY_3DJZ integer:: IX,IY,IZ integer:: IJUNC