| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagstats_ascii_out.F |
43 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, klev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
55 |
DIAGSTATS_ASCII_OUT |
nUnit = diagSt_ioUnit(listId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
63 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_ascii_out.F |
68 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(6A)') ' k |', |
|
./pkg/diagnostics/diagstats_ascii_out.F |
75 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(I3,1P5E18.10)') |
|
./pkg/diagnostics/diagstats_ascii_out.F |
80 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(A)') ' ' |
|
./pkg/diagnostics/diagstats_close_io.F |
36 |
DIAGSTATS_CLOSE_IO |
INTEGER n, iL, nUnit |
|
./pkg/diagnostics/diagstats_close_io.F |
48 |
DIAGSTATS_CLOSE_IO |
nUnit = diagSt_ioUnit(n) |
|
./pkg/diagnostics/diagstats_close_io.F |
51 |
DIAGSTATS_CLOSE_IO |
WRITE(nUnit,'(A)') '# records End here.' |
|
./pkg/diagnostics/diagstats_close_io.F |
52 |
DIAGSTATS_CLOSE_IO |
CLOSE(nUnit) |
|
./pkg/diagnostics/diagstats_close_io.F |
58 |
DIAGSTATS_CLOSE_IO |
& 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
37 |
DIAGSTATS_INI_IO |
INTEGER m, n, j, iL, nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
54 |
DIAGSTATS_INI_IO |
CALL MDSFINDUNIT( nUnit, myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
55 |
DIAGSTATS_INI_IO |
diagSt_ioUnit(n) = nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
60 |
DIAGSTATS_INI_IO |
OPEN( nUnit, FILE=dataFName, STATUS='unknown' ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
63 |
DIAGSTATS_INI_IO |
& 'open file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
68 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(2A)') '# header of file: ', |
|
./pkg/diagnostics/diagstats_ini_io.F |
70 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,F17.6)') '# frequency (s): ', diagSt_freq(n) |
|
./pkg/diagnostics/diagstats_ini_io.F |
71 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,F17.6)') '# phase (s) : ', diagSt_phase(n) |
|
./pkg/diagnostics/diagstats_ini_io.F |
81 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
83 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,20A)') '# Fields :', |
|
./pkg/diagnostics/diagstats_ini_io.F |
87 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,50I4)') '# Nb of levels : ', |
|
./pkg/diagnostics/diagstats_ini_io.F |
90 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(2A)') '# end of header ----------------------', |
|
./pkg/diagnostics/diagstats_ini_io.F |
92 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') ' ' |