| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagstats_ascii_out.F |
42 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, kLev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
50 |
DIAGSTATS_ASCII_OUT |
nUnit = diagSt_ioUnit(listId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
59 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(3A,I10,2(A,I4))') ' field : ', cdiag(ndId), |
|
./pkg/diagnostics/diagstats_ascii_out.F |
67 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(6A)') ' k |', |
|
./pkg/diagnostics/diagstats_ascii_out.F |
77 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(I3,1P5E21.13)') |
|
./pkg/diagnostics/diagstats_ascii_out.F |
82 |
DIAGSTATS_ASCII_OUT |
WRITE(nUnit,'(A)') ' ' |
|
./pkg/diagnostics/diagstats_close_io.F |
37 |
DIAGSTATS_CLOSE_IO |
INTEGER n, iL, nUnit |
|
./pkg/diagnostics/diagstats_close_io.F |
49 |
DIAGSTATS_CLOSE_IO |
nUnit = diagSt_ioUnit(n) |
|
./pkg/diagnostics/diagstats_close_io.F |
52 |
DIAGSTATS_CLOSE_IO |
WRITE(nUnit,'(A)') '# records End here.' |
|
./pkg/diagnostics/diagstats_close_io.F |
53 |
DIAGSTATS_CLOSE_IO |
CLOSE(nUnit) |
|
./pkg/diagnostics/diagstats_close_io.F |
64 |
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 |
50 |
DIAGSTATS_INI_IO |
CALL MDSFINDUNIT( nUnit, myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
51 |
DIAGSTATS_INI_IO |
diagSt_ioUnit(n) = nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
64 |
DIAGSTATS_INI_IO |
OPEN( nUnit, FILE=dataFName, STATUS='unknown' ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
67 |
DIAGSTATS_INI_IO |
& 'open file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
72 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(2A)') '# header of file: ', |
|
./pkg/diagnostics/diagstats_ini_io.F |
74 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,F17.6)') '# frequency (s): ', diagSt_freq(n) |
|
./pkg/diagnostics/diagstats_ini_io.F |
75 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,F17.6)') '# phase (s) : ', diagSt_phase(n) |
|
./pkg/diagnostics/diagstats_ini_io.F |
85 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
87 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,20A)') '# Fields :', |
|
./pkg/diagnostics/diagstats_ini_io.F |
91 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,50I4)') '# Nb of levels : ', |
|
./pkg/diagnostics/diagstats_ini_io.F |
94 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(2A)') '# end of header ----------------------', |
|
./pkg/diagnostics/diagstats_ini_io.F |
96 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') ' ' |