File |
Line number |
Procedure |
Code |
./pkg/diagnostics/diagnostics_out.F |
122 |
DIAGNOSTICS_OUT |
diag_mnc_bn(i:i) = ' ' |
./pkg/diagnostics/diagnostics_out.F |
127 |
DIAGNOSTICS_OUT |
WRITE( diag_mnc_bn, '(A)' ) fnames(listId)(1:ilen) |
./pkg/diagnostics/diagnostics_out.F |
130 |
DIAGNOSTICS_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
./pkg/diagnostics/diagnostics_out.F |
131 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
./pkg/diagnostics/diagnostics_out.F |
132 |
DIAGNOSTICS_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
./pkg/diagnostics/diagnostics_out.F |
148 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagnostics_out.F |
199 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid) |
./pkg/diagnostics/diagnostics_out.F |
519 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagnostics_out.F |
522 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagnostics_out.F |
97 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn |
./pkg/diagnostics/diagstats_mnc_out.F |
100 |
DIAGSTATS_MNC_OUT |
WRITE(diag_mnc_bn, '(a)') diagSt_Fname(listId)(1:ilen) |
./pkg/diagnostics/diagstats_mnc_out.F |
104 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
105 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
106 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
107 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
133 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagstats_mnc_out.F |
177 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
263 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagstats_mnc_out.F |
268 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagstats_mnc_out.F |
300 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagstats_mnc_out.F |
305 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagstats_mnc_out.F |
61 |
DIAGSTATS_MNC_OUT |
CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn |
./pkg/diagnostics/diagstats_mnc_out.F |
94 |
DIAGSTATS_MNC_OUT |
diag_mnc_bn(i:i) = ' ' |
./pkg/diagnostics/diagnostics_write_pickup.F |
121 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagnostics_write_pickup.F |
149 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_I_W('I',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagnostics_write_pickup.F |
59 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn |
./pkg/diagnostics/diagnostics_write_pickup.F |
81 |
DIAGNOSTICS_WRITE_PICKUP |
diag_mnc_bn(i:i) = ' ' |
./pkg/diagnostics/diagnostics_write_pickup.F |
83 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(diag_mnc_bn,'(A)') 'pickup_diagnostics' |
./pkg/diagnostics/diagnostics_write_pickup.F |
86 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
87 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
88 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
89 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
102 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_RL_R('D',diag_mnc_bn,0,0, |
./pkg/diagnostics/diagnostics_read_pickup.F |
48 |
DIAGNOSTICS_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn |
./pkg/diagnostics/diagnostics_read_pickup.F |
68 |
DIAGNOSTICS_READ_PICKUP |
diag_mnc_bn(i:i) = ' ' |
./pkg/diagnostics/diagnostics_read_pickup.F |
70 |
DIAGNOSTICS_READ_PICKUP |
WRITE(diag_mnc_bn,'(A)') 'pickup_diagnostics' |
./pkg/diagnostics/diagnostics_read_pickup.F |
73 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(diag_mnc_bn, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
74 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 1, myThid) |