?? write_param.f90
字號:
SUBROUTINE WRITE_PARAM USE MOD_PARAMETERIZATION, ONLY: CELLS, CELLSY USE MOD_MODEL , ONLY: MZ, KEY_Q USE MOD_FILES , ONLY: MO_FILE_NAME, Q_FILE_NAME!---------------------------------------------------------------------- IMPLICIT NONE INTEGER :: JM1, IOLENINT, L!---------------------------------------------------------------------- OPEN ( 14, FILE = MO_FILE_NAME, FORM = 'UNFORMATTED', STATUS='NEW' ) OPEN ( 15, FILE = Q_FILE_NAME, FORM = 'UNFORMATTED', STATUS='NEW' ) WRITE( 14 ) ( CELLS(L,1), CELLS(L,2), L = 0, MZ ) CLOSE(14) IF ( KEY_Q ) THEN WRITE ( 15 ) ( CELLSY(L,1,:), L = 0, MZ ) ELSE CELLSY = 0. WRITE ( 15 ) ( CELLSY(L,1,:), L = 0, MZ ) END IF CLOSE(15)END SUBROUTINE WRITE_PARAM
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -