| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cw_model_attr.F |
43 |
MNC_CW_SET_GATTR |
integer ilnb |
|
./pkg/mnc/mnc_cw_model_attr.F |
48 |
MNC_CW_SET_GATTR |
ilnb = ILNBLNK(the_run_name) |
|
./pkg/mnc/mnc_cw_model_attr.F |
49 |
MNC_CW_SET_GATTR |
IF (ilnb .GT. 0) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
100 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
109 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
118 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
133 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
139 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
146 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
155 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb)//' (Explicit part)' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
161 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
168 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
176 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb)//' (Implicit part)' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
186 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
194 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') locName(1:ilnb), |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
43 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, tracerId |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
72 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
73 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
74 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = LEN(trcUnits) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
75 |
PTRACERS_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
77 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_long_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
78 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
79 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locName),ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
80 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_long_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
82 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
83 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
84 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locName),ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
85 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
88 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MAX(ILNBLNK(locName),1) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
92 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') locName(1:ilnb), ' concentration' |
|
./pkg/ptracers/ptracers_mnc_init.F |
32 |
PTRACERS_MNC_INIT |
INTEGER ii, jj, ilnb |
|
./pkg/ptracers/ptracers_mnc_init.F |
47 |
PTRACERS_MNC_INIT |
ilnb = ILNBLNK(PTRACERS_names(ii)) |
|
./pkg/ptracers/ptracers_mnc_init.F |
48 |
PTRACERS_MNC_INIT |
IF (ilnb .LT. 1) THEN |
|
./pkg/ptracers/ptracers_mnc_init.F |
57 |
PTRACERS_MNC_INIT |
WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb) |
|
./pkg/ptracers/ptracers_mnc_init.F |
61 |
PTRACERS_MNC_INIT |
ilnb = ILNBLNK(PTRACERS_long_names(ii)) |
|
./pkg/ptracers/ptracers_mnc_init.F |
62 |
PTRACERS_MNC_INIT |
IF (ilnb .GT. 0) THEN |
|
./pkg/ptracers/ptracers_mnc_init.F |
68 |
PTRACERS_MNC_INIT |
ilnb = ILNBLNK(PTRACERS_units(ii)) |
|
./pkg/ptracers/ptracers_mnc_init.F |
69 |
PTRACERS_MNC_INIT |
IF (ilnb .GT. 0) THEN |
|
./pkg/ptracers/ptracers_write_timeave.F |
104 |
PTRACERS_WRITE_TIMEAVE |
ilnb = ILNBLNK(PTRACERS_names(iTr)) |
|
./pkg/ptracers/ptracers_write_timeave.F |
105 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(A,A)') 'surf_',PTRACERS_names(iTr)(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
50 |
PTRACERS_WRITE_TIMEAVE |
INTEGER jj, ilnb |