?? rec_dis.f90
字號:
!=======================================================================SUBROUTINE REC_DIS ( ITILE, D ) USE PRECISION , ONLY: & WP USE CONTROL_DATA, ONLY: & DT, LREC, MR, MZ!----------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT(IN) :: ITILE REAL(WP), DIMENSION(0:MZ), INTENT(INOUT) :: D INTEGER :: I!----------------------------------------------------------------------- WRITE ( 21, '(250(1X,E12.6))' ) ITILE*DT, ( D( LREC(I) ), I = 1, MR )END SUBROUTINE REC_DIS?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -