Download EFDC_Explorer3 Users Guide - CEFD

A section of code from the EEXPOUT subroutine in EFDC.
INTEGER*4 VER
CHARACTER*8 ARRAYNAME
C**********************************************************C
C
! *** INTERNAL ARRAYS
IF(.TRUE..AND.JSEXPLORER.EQ.0)THEN
&
! *** TIME STATIC ARRAYS
IF(N.LT.(2*NTSPTC/NPSPH(8)))THEN
OPEN(97,FILE='EFDC_INT.OUT',STATUS='UNKNOWN')
CLOSE(97,STATUS='DELETE')
OPEN(97,FILE='EFDC_INT.OUT',STATUS='UNKNOWN',
ACCESS='SEQUENTIAL',FORM='BINARY')
WRITE(97)VER ! FILE FORMAT VERSION #
WRITE(97)1
! # OF TIME VARYING ARRAYS
! FLAGS: ARRAY TYPE,
! ARRAY TYPE:
0 =
!
1 =
!
2 =
!
3 =
!
4 =
! TIME VARIABLE: 0 =
!
1 =
TIME VARIABLE
L
DIM'D
L,KC
DIM'D
L,0:KC
DIM'D
L,KB
DIM'D
L,KC,NCLASS DIM'D
NOT CHANGING
TIME VARYING
WRITE(97)0,0
ARRAYNAME='WVKHV'
WRITE(97)ARRAYNAME
DO L=2,LA
WRITE(97)WVKHV(L)
ENDDO
ENDIF
! *** TIME VARYING ARRAYS
WRITE(97)2,1
ARRAYNAME='QQ'
WRITE(97)ARRAYNAME
DO L=2,LA
DO K=0,KC
WRITE(97)QQ(L,K) ! Turbulent Intensity (
ENDDO
ENDDO
ENDIF
C
C*********************************************************C
C
RETURN
END
DS-International, LLC.
A-3
EFDC_Explorer