📄 mesh.f90
字号:
MODULE MESH_VARIABLES ! Data structure for mesh-dependent variables USE PRECISION_PARAMETERSUSE TYPESIMPLICIT NONECHARACTER(255), PARAMETER :: meshid='$Id: mesh.f90 598 2007-09-16 21:02:07Z mcgratta $'CHARACTER(255), PARAMETER :: meshrev='$Revision: 598 $'CHARACTER(255), PARAMETER :: meshdate='$Date: 2007-09-16 17:02:07 -0400 (Sun, 16 Sep 2007) $' TYPE MESH_TYPE REAL(EB), POINTER, DIMENSION(:,:,:) :: & U,V,W,US,VS,WS,DDDT,D,DS,H,HP,FVX,FVY,FVZ,RHO,RHOS, & MU,TMP,Q,FRHO,KAPPA,QR,QR_W,UII,RSUM,Z_SUM,Y_SUM,D_VAP REAL(EB), POINTER, DIMENSION(:,:,:,:) :: YY,YYS,DEL_RHO_D_DEL_Y,AVG_DROP_DEN,AVG_DROP_TMP,AVG_DROP_RAD REAL(EB), POINTER, DIMENSION(:,:) :: UVW_GHOST REAL(EB) :: POIS_PTB,POIS_ERR REAL(EB), POINTER, DIMENSION(:) :: SAVE,SAVE2,WORK REAL(EB), POINTER, DIMENSION(:,:,:) :: PRHS REAL(EB), POINTER, DIMENSION(:,:) :: BXS,BXF,BYS,BYF,BZS,BZF, BXST,BXFT,BYST,BYFT,BZST,BZFT INTEGER :: LSAVE,LWORK,LBC,MBC,NBC,ITRN,JTRN,KTRN,IPS REAL(EB), POINTER, DIMENSION(:) :: P_0,RHO_0,TMP_0,D_PBAR_DT,D_PBAR_S_DT,U_LEAK,U_DUCT REAL(EB), POINTER, DIMENSION(:,:) :: PBAR,PBAR_S,R_PBAR,LEAK_AREA,FDS_LEAK_AREA INTEGER, POINTER, DIMENSION(:,:,:) :: PRESSURE_ZONE INTEGER, POINTER, DIMENSION(:) :: PRESSURE_ZONE_WALL REAL(EB), POINTER, DIMENSION(:,:,:) :: WORK1,WORK2,WORK3,WORK4,WORK5,WORK6,WORK7 LOGICAL, POINTER, DIMENSION(:,:,:) :: LOGICAL_WORK REAL(EB), POINTER, DIMENSION(:) :: WALL_WORK1,WALL_WORK2 REAL(FB), POINTER, DIMENSION(:,:,:,:) :: QQ REAL(FB), POINTER, DIMENSION(:,:) :: PP,PPN INTEGER, POINTER, DIMENSION(:,:) :: IBK INTEGER, POINTER, DIMENSION(:,:,:) :: IBLK REAL(EB) :: DT,DTOLD,DTNEXT,DTINT REAL(EB) :: CFL,DIVMX,DIVMN,VN,RESMAX INTEGER :: ICFL,JCFL,KCFL,IMX,JMX,KMX,IMN,JMN,KMN, I_VN,J_VN,K_VN,IRM,JRM,KRM INTEGER :: N_EDGES INTEGER, POINTER, DIMENSION(:,:) :: IJKE,EDGE_INDEX REAL(EB), POINTER, DIMENSION(:) :: TAU_E,OME_E LOGICAL, POINTER, DIMENSION(:) :: ACTIVE_EDGE INTEGER :: IBAR,JBAR,KBAR,IBAR2,JBAR2,KBAR2,IBM1,JBM1,KBM1,IBP1,JBP1,KBP1 INTEGER, POINTER, DIMENSION(:) :: I_LO,I_HI,J_LO,J_HI,K_LO,K_HI INTEGER, POINTER, DIMENSION(:,:,:) :: CGI,CGI2 INTEGER, POINTER, DIMENSION(:) :: RGB REAL(EB) :: DXI,DETA,DZETA,RDXI,RDETA,RDZETA, & DXMIN,DXMAX,DYMIN,DYMAX,DZMIN,DZMAX, & XS,XF,YS,YF,ZS,ZF,RDXINT,RDYINT,RDZINT REAL(EB), POINTER, DIMENSION(:) :: R,RC,X,Y,Z,XC,YC,ZC,HX,HY,HZ, & DX,RDX,DXN,RDXN,DY,RDY,DYN,RDYN,DZ,RDZ,DZN,RDZN, & CELLSI,CELLSJ,CELLSK,RREDX,RREDY,RREDZ,RRN REAL(FB), POINTER, DIMENSION(:) :: XPLT,YPLT,ZPLT INTEGER :: N_OBST TYPE(OBSTRUCTION_TYPE), POINTER, DIMENSION(:) :: OBSTRUCTION INTEGER :: N_VENT TYPE(VENTS_TYPE), POINTER, DIMENSION(:) :: VENTS INTEGER, POINTER, DIMENSION(:,:,:) :: CELL_INDEX INTEGER, POINTER, DIMENSION(:) :: I_CELL,J_CELL,K_CELL,OBST_INDEX_C INTEGER, POINTER, DIMENSION(:,:) :: WALL_INDEX LOGICAL, POINTER, DIMENSION(:) :: SOLID INTEGER :: NWC,NEWC,NDWC,CELL_COUNT,WALL_COUNTER REAL(EB) :: BC_CLOCK REAL(EB), POINTER, DIMENSION(:,:) :: MASSFLUX,AWMPUA,WMPUA,WCPUA REAL(EB), POINTER, DIMENSION(:,:) :: RHODW,YY_W,INTERPOLATION_FACTOR REAL(EB), POINTER, DIMENSION(:) :: XW,YW,ZW,TW, & AW,RAW,UW0,DUWDT,RDN,MASS_LOSS, & QRADIN,QRADOUT,EW,KW,QCONF,AREA_ADJUST,RHO_W,TMP_W,RSUM_W,RCP_W, & TMP_F,TMP_B,HEAT_TRANS_COEF REAL(EB), POINTER, DIMENSION(:) :: E_WALL,ACTUAL_BURN_RATE REAL(EB), POINTER, DIMENSION(:) :: UW,UWS,CELL_VOLUME_RATIO INTEGER, POINTER, DIMENSION(:,:) :: IJKW INTEGER, POINTER, DIMENSION(:) :: BOUNDARY_TYPE,NPPCW,OBST_INDEX_W,WALL_INDEX_BACK,VENT_INDEX TYPE(WALL_TYPE), POINTER, DIMENSION(:) :: WALL TYPE(OMESH_TYPE), POINTER, DIMENSION(:) :: OMESH TYPE(DROPLET_TYPE), POINTER, DIMENSION(:) :: DROPLET INTEGER :: NLP,NLPDIM TYPE(HUMAN_TYPE), POINTER, DIMENSION(:) :: HUMAN INTEGER :: N_HUMANS,N_HUMANS_DIM TYPE(HUMAN_GRID_TYPE), POINTER, DIMENSION(:,:) :: HUMAN_GRID INTEGER :: N_SLCF TYPE(SLICE_TYPE), POINTER, DIMENSION(:) :: SLICE INTEGER, POINTER, DIMENSION(:,:) :: INC INTEGER :: NPATCH REAL(EB), POINTER, DIMENSION(:,:,:,:) :: UIID INTEGER :: RAD_CALL_COUNTER,ANGLE_INC_COUNTER REAL(EB) :: RHO_AVG,Q_UPPER INTEGER, POINTER, DIMENSION(:,:,:) :: INTERPOLATED_MESH CHARACTER(80), POINTER, DIMENSION(:) :: STRING INTEGER :: N_STRINGS,N_STRINGS_MAX END TYPE MESH_TYPE TYPE (MESH_TYPE), SAVE, DIMENSION(:), ALLOCATABLE, TARGET :: MESHES CHARACTER(30), DIMENSION(:), ALLOCATABLE :: MESH_NAMEREAL(EB),DIMENSION(:,:), ALLOCATABLE :: TUSEDINTEGER, DIMENSION(:,:), ALLOCATABLE :: I_MIN,I_MAX,J_MIN,J_MAX,K_MIN,K_MAX,NIC END MODULE MESH_VARIABLES MODULE MESH_POINTERS USE PRECISION_PARAMETERSUSE MESH_VARIABLESIMPLICIT NONE REAL(EB), POINTER, DIMENSION(:,:,:) :: & U,V,W,US,VS,WS,DDDT,D,DS,H,HP,FVX,FVY,FVZ,RHO,RHOS, & MU,TMP,Q,FRHO,KAPPA,QR,QR_W,UII,RSUM,Y_SUM,Z_SUM,D_VAPREAL(EB), POINTER, DIMENSION(:,:,:,:) :: YY,YYS,DEL_RHO_D_DEL_Y,AVG_DROP_DEN,AVG_DROP_TMP,AVG_DROP_RAD REAL(EB), POINTER, DIMENSION(:,:) :: UVW_GHOSTREAL(EB), POINTER :: POIS_PTB,POIS_ERRREAL(EB), POINTER, DIMENSION(:) :: SAVE,SAVE2,WORKREAL(EB), POINTER, DIMENSION(:,:,:) :: PRHSREAL(EB), POINTER, DIMENSION(:,:) :: BXS,BXF,BYS,BYF,BZS,BZF, BXST,BXFT,BYST,BYFT,BZST,BZFTINTEGER, POINTER :: LSAVE,LWORK,LBC,MBC,NBC,ITRN,JTRN,KTRN,IPSREAL(EB), POINTER, DIMENSION(:) :: P_0,RHO_0,TMP_0,D_PBAR_DT,D_PBAR_S_DT,U_LEAK,U_DUCTREAL(EB), POINTER, DIMENSION(:,:) :: PBAR,PBAR_S,R_PBAR,LEAK_AREA,FDS_LEAK_AREAINTEGER, POINTER, DIMENSION(:,:,:) :: PRESSURE_ZONEINTEGER, POINTER, DIMENSION(:) :: PRESSURE_ZONE_WALLREAL(EB), POINTER, DIMENSION(:,:,:) :: WORK1,WORK2,WORK3,WORK4,WORK5,WORK6,WORK7LOGICAL, POINTER, DIMENSION(:,:,:) :: LOGICAL_WORKREAL(EB), POINTER, DIMENSION(:) :: WALL_WORK1,WALL_WORK2REAL(FB), POINTER, DIMENSION(:,:,:,:) :: QQREAL(FB), POINTER, DIMENSION(:,:) :: PP,PPNINTEGER, POINTER, DIMENSION(:,:) :: IBKINTEGER, POINTER, DIMENSION(:,:,:) :: IBLKREAL(EB), POINTER :: DT,DTOLD,DTNEXT,DTINTREAL(EB), POINTER :: CFL,DIVMX,DIVMN,VN,RESMAXINTEGER, POINTER :: ICFL,JCFL,KCFL,IMX,JMX,KMX,IMN,JMN,KMN,I_VN,J_VN,K_VN,IRM,JRM,KRMINTEGER, POINTER :: N_EDGESINTEGER, POINTER, DIMENSION(:,:) :: IJKE,EDGE_INDEXREAL(EB), POINTER, DIMENSION(:) :: TAU_E,OME_ELOGICAL, POINTER, DIMENSION(:) :: ACTIVE_EDGEINTEGER, POINTER :: IBAR,JBAR,KBAR,IBAR2,JBAR2,KBAR2,IBM1,JBM1,KBM1,IBP1,JBP1,KBP1INTEGER, POINTER, DIMENSION(:) :: I_LO,I_HI,J_LO,J_HI,K_LO,K_HIINTEGER, POINTER, DIMENSION(:,:,:) :: CGI,CGI2INTEGER, POINTER, DIMENSION(:) :: RGBREAL(EB), POINTER :: DXI,DETA,DZETA,RDXI,RDETA,RDZETA, & DXMIN,DXMAX,DYMIN,DYMAX,DZMIN,DZMAX, & XS,XF,YS,YF,ZS,ZF,RDXINT,RDYINT,RDZINTREAL(EB), POINTER, DIMENSION(:) :: R,RC,X,Y,Z,XC,YC,ZC,HX,HY,HZ, & DX,RDX,DXN,RDXN,DY,RDY,DYN,RDYN,DZ,RDZ,DZN,RDZN, & CELLSI,CELLSJ,CELLSK,RREDX,RREDY,RREDZ,RRNREAL(FB), POINTER, DIMENSION(:) :: XPLT,YPLT,ZPLTINTEGER, POINTER :: N_OBSTTYPE(OBSTRUCTION_TYPE), POINTER, DIMENSION(:) :: OBSTRUCTIONINTEGER, POINTER :: N_VENTTYPE(VENTS_TYPE), POINTER, DIMENSION(:) :: VENTSINTEGER, POINTER, DIMENSION(:,:,:) :: CELL_INDEXINTEGER, POINTER, DIMENSION(:) :: I_CELL,J_CELL,K_CELL,OBST_INDEX_CINTEGER, POINTER, DIMENSION(:,:) :: WALL_INDEXLOGICAL, POINTER, DIMENSION(:) :: SOLIDINTEGER, POINTER :: NWC,NEWC,NDWC,CELL_COUNT,WALL_COUNTERREAL(EB),POINTER :: BC_CLOCKREAL(EB), POINTER, DIMENSION(:,:) :: MASSFLUX,AWMPUA,WMPUA,WCPUAREAL(EB), POINTER, DIMENSION(:,:) :: RHODW,YY_W,INTERPOLATION_FACTORREAL(EB), POINTER, DIMENSION(:) :: XW,YW,ZW,TW, & AW,RAW,UW0,DUWDT,RDN,MASS_LOSS, & QRADIN,QRADOUT,EW,KW,QCONF,AREA_ADJUST,RHO_W,TMP_W,RSUM_W,RCP_W, & TMP_F,TMP_B,HEAT_TRANS_COEFREAL(EB), POINTER, DIMENSION(:) :: E_WALL,ACTUAL_BURN_RATEREAL(EB), POINTER, DIMENSION(:) :: UW,UWS,CELL_VOLUME_RATIOINTEGER, POINTER, DIMENSION(:,:) :: IJKWINTEGER, POINTER, DIMENSION(:) :: BOUNDARY_TYPE,NPPCW,OBST_INDEX_W,WALL_INDEX_BACK,VENT_INDEXTYPE(WALL_TYPE), POINTER, DIMENSION(:) :: WALLTYPE(OMESH_TYPE), POINTER, DIMENSION(:) :: OMESHTYPE(DROPLET_TYPE), POINTER, DIMENSION(:) :: DROPLETINTEGER, POINTER :: NLP,NLPDIMTYPE(HUMAN_TYPE), POINTER, DIMENSION(:) :: HUMANINTEGER, POINTER :: N_HUMANS,N_HUMANS_DIMTYPE(HUMAN_GRID_TYPE), POINTER, DIMENSION(:,:) :: HUMAN_GRIDINTEGER, POINTER :: N_SLCFTYPE(SLICE_TYPE), POINTER, DIMENSION(:) :: SLICEINTEGER, POINTER, DIMENSION(:,:) :: INCINTEGER, POINTER :: NPATCHREAL(EB), POINTER, DIMENSION(:,:,:,:) :: UIIDINTEGER, POINTER :: RAD_CALL_COUNTER,ANGLE_INC_COUNTERREAL(EB), POINTER :: RHO_AVG,Q_UPPERINTEGER, POINTER, DIMENSION(:,:,:) :: INTERPOLATED_MESHCHARACTER(80), POINTER, DIMENSION(:) :: STRINGINTEGER, POINTER :: N_STRINGS,N_STRINGS_MAXCONTAINS SUBROUTINE POINT_TO_MESH(NM)! Local names for MESH variables point to Global names INTEGER, INTENT(IN) :: NMTYPE (MESH_TYPE), POINTER :: M M=>MESHES(NM)U=>M%UV=>M%VW=>M%WUS=>M%USVS=>M%VSWS=>M%WSDDDT=>M%DDDTD=>M%DDS=>M%DSH=>M%H HP=>M%HPFVX=>M%FVXFVY=>M%FVYFVZ=>M%FVZ RHO=>M%RHORHOS=>M%RHOSTMP=>M%TMPFRHO=>M%FRHOMU=>M%MUQ=>M%QQR=>M%QRQR_W=>M%QR_WKAPPA=>M%KAPPA UII=>M%UII AVG_DROP_DEN=>M%AVG_DROP_DENAVG_DROP_TMP=>M%AVG_DROP_TMPAVG_DROP_RAD=>M%AVG_DROP_RADD_VAP=>M%D_VAPRSUM=>M%RSUMY_SUM=>M%Y_SUMZ_SUM=>M%Z_SUMYY=>M%YYYYS=>M%YYSDEL_RHO_D_DEL_Y=>M%DEL_RHO_D_DEL_YUVW_GHOST=>M%UVW_GHOSTPOIS_PTB=>M%POIS_PTBPOIS_ERR=>M%POIS_ERRSAVE=>M%SAVESAVE2=>M%SAVE2WORK=>M%WORKLSAVE=>M%LSAVELWORK=>M%LWORKPRHS=>M%PRHSBXS=>M%BXSBXF=>M%BXF BYS=>M%BYSBYF=>M%BYF BZS=>M%BZSBZF=>M%BZF BXST=>M%BXSTBXFT=>M%BXFT BYST=>M%BYSTBYFT=>M%BYFT BZST=>M%BZSTBZFT=>M%BZFT LBC=>M%LBCMBC=>M%MBCNBC=>M%NBC ITRN=>M%ITRNJTRN=>M%JTRNKTRN=>M%KTRNIPS=>M%IPSU_LEAK=>M%U_LEAKU_DUCT=>M%U_DUCTLEAK_AREA=>M%LEAK_AREAFDS_LEAK_AREA=>M%FDS_LEAK_AREAD_PBAR_DT=>M%D_PBAR_DTD_PBAR_S_DT=>M%D_PBAR_S_DTPBAR=>M%PBARPBAR_S=>M%PBAR_SR_PBAR=>M%R_PBARP_0=>M%P_0RHO_0=>M%RHO_0TMP_0=>M%TMP_0PRESSURE_ZONE=>M%PRESSURE_ZONEPRESSURE_ZONE_WALL=>M%PRESSURE_ZONE_WALLWORK1=>M%WORK1WORK2=>M%WORK2WORK3=>M%WORK3 WORK4=>M%WORK4WORK5=>M%WORK5WORK6=>M%WORK6 WORK7=>M%WORK7LOGICAL_WORK=>M%LOGICAL_WORKWALL_WORK1=>M%WALL_WORK1WALL_WORK2=>M%WALL_WORK2QQ=>M%QQPP=>M%PPPPN=>M%PPNIBK=>M%IBKIBLK=>M%IBLKDT=>M%DTDTOLD=>M%DTOLDDTNEXT=>M%DTNEXTDTINT=>M%DTINTCFL=>M%CFLDIVMX=>M%DIVMXVN=>M%VNRESMAX=>M%RESMAXDIVMN=>M%DIVMNICFL=>M%ICFLJCFL=>M%JCFLKCFL=>M%KCFL IMX=>M%IMXJMX=>M%JMXKMX=>M%KMXIMN=>M%IMNJMN=>M%JMNKMN=>M%KMNIRM=>M%IRMJRM=>M%JRMKRM=>M%KRMI_VN=>M%I_VNJ_VN=>M%J_VNK_VN=>M%K_VNN_EDGES=>M%N_EDGESIJKE=>M%IJKEEDGE_INDEX=>M%EDGE_INDEXTAU_E=>M%TAU_EOME_E=>M%OME_EACTIVE_EDGE=>M%ACTIVE_EDGEIBAR=>M%IBARJBAR=>M%JBARKBAR=>M%KBAR IBAR2=>M%IBAR2JBAR2=>M%JBAR2KBAR2=>M%KBAR2IBM1=>M%IBM1JBM1=>M%JBM1KBM1=>M%KBM1 IBP1=>M%IBP1JBP1=>M%JBP1KBP1=>M%KBP1 I_LO=>M%I_LOI_HI=>M%I_HI J_LO=>M%J_LOJ_HI=>M%J_HI K_LO=>M%K_LOK_HI=>M%K_HI CGI=>M%CGI CGI2=>M%CGI2RGB=>M%RGBDXI=>M%DXIDETA=>M%DETADZETA=>M%DZETA RDXI=>M%RDXIRDETA=>M%RDETARDZETA=>M%RDZETA DXMIN=>M%DXMINDXMAX=>M%DXMAX DYMIN=>M%DYMINDYMAX=>M%DYMAX DZMIN=>M%DZMINDZMAX=>M%DZMAX XS=>M%XS XF=>M%XF YS=>M%YSYF=>M%YF ZS=>M%ZS ZF=>M%ZF RDXINT=>M%RDXINTRDYINT=>M%RDYINTRDZINT=>M%RDZINT R=>M%RRC=>M%RCX=>M%XY=>M%YZ=>M%Z XC=>M%XCYC=>M%YCZC=>M%ZCHX=>M%HXHY=>M%HYHZ=>M%HZDX=>M%DXDY=>M%DYDZ=>M%DZ DXN=>M%DXNDYN=>M%DYNDZN=>M%DZNRDX=>M%RDXRDY=>M%RDYRDZ=>M%RDZ RDXN=>M%RDXNRDYN=>M%RDYNRDZN=>M%RDZNCELLSI=>M%CELLSICELLSJ=>M%CELLSJCELLSK=>M%CELLSK RREDX=>M%RREDXRREDY=>M%RREDYRREDZ=>M%RREDZ RRN=>M%RRNXPLT=>M%XPLTYPLT=>M%YPLTZPLT=>M%ZPLT N_OBST=>M%N_OBSTOBSTRUCTION=>M%OBSTRUCTIONN_VENT=>M%N_VENTVENTS=>M%VENTSCELL_INDEX=>M%CELL_INDEXI_CELL=>M%I_CELLJ_CELL=>M%J_CELLK_CELL=>M%K_CELLOBST_INDEX_C=>M%OBST_INDEX_CWALL_INDEX=>M%WALL_INDEXSOLID=>M%SOLID NWC=>M%NWCNEWC=>M%NEWCNDWC=>M%NDWCCELL_COUNT=>M%CELL_COUNTWALL_COUNTER=>M%WALL_COUNTERBC_CLOCK=>M%BC_CLOCKMASSFLUX=>M%MASSFLUXRHODW=>M%RHODWYY_W=>M%YY_WTMP_F=>M%TMP_FTMP_B=>M%TMP_B HEAT_TRANS_COEF=>M%HEAT_TRANS_COEFXW=>M%XWYW=>M%YWZW=>M%ZWTW=>M%TWAWMPUA=>M%AWMPUA AW=>M%AWWMPUA=>M%WMPUAWCPUA=>M%WCPUARAW=>M%RAWUW0=>M%UW0DUWDT=>M%DUWDTRDN=>M%RDNMASS_LOSS=>M%MASS_LOSSEW=>M%EWKW=>M%KW QRADIN=>M%QRADINQRADOUT=>M%QRADOUTQCONF=>M%QCONFAREA_ADJUST=>M%AREA_ADJUSTRHO_W=>M%RHO_WTMP_W=>M%TMP_WRCP_W=>M%RCP_WRSUM_W=>M%RSUM_WE_WALL=>M%E_WALLACTUAL_BURN_RATE=>M%ACTUAL_BURN_RATEUW=>M%UWUWS=>M%UWSOBST_INDEX_W=>M%OBST_INDEX_WVENT_INDEX=>M%VENT_INDEXIJKW=>M%IJKWINTERPOLATION_FACTOR=>M%INTERPOLATION_FACTORCELL_VOLUME_RATIO=>M%CELL_VOLUME_RATIOBOUNDARY_TYPE=>M%BOUNDARY_TYPEWALL_INDEX_BACK=>M%WALL_INDEX_BACKNPPCW=>M%NPPCWWALL=>M%WALLOMESH=>M%OMESHDROPLET =>M%DROPLET NLP=>M%NLP NLPDIM=>M%NLPDIMHUMAN =>M%HUMAN N_HUMANS=>M%N_HUMANS N_HUMANS_DIM=>M%N_HUMANS_DIMHUMAN_GRID =>M%HUMAN_GRIDN_SLCF=>M%N_SLCFSLICE=>M%SLICEINC=>M%INCNPATCH=>M%NPATCHUIID=>M%UIID RAD_CALL_COUNTER=>M%RAD_CALL_COUNTERANGLE_INC_COUNTER=>M%ANGLE_INC_COUNTERRHO_AVG=>M%RHO_AVGQ_UPPER=>M%Q_UPPERINTERPOLATED_MESH => M%INTERPOLATED_MESHSTRING=>M%STRING N_STRINGS=>M%N_STRINGS N_STRINGS_MAX=>M%N_STRINGS_MAX END SUBROUTINE POINT_TO_MESHSUBROUTINE GET_REV_mesh(MODULE_REV,MODULE_DATE)INTEGER,INTENT(INOUT) :: MODULE_REVCHARACTER(255),INTENT(INOUT) :: MODULE_DATEWRITE(MODULE_DATE,'(A)') meshrev(INDEX(meshrev,':')+1:LEN_TRIM(meshrev)-2)READ (MODULE_DATE,'(I5)') MODULE_REVWRITE(MODULE_DATE,'(A)') meshdateEND SUBROUTINE GET_REV_mesh END MODULE MESH_POINTERS⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -