| File |
Line number |
Procedure |
Code |
|
./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_diagnostics_init.F |
106 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
114 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
129 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
135 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
141 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
148 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb)//' (Explicit part)' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
154 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
160 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
167 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb)//' (Implicit part)' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
41 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, tracerId |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
70 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
71 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
72 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = LEN(trcUnits) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
73 |
PTRACERS_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
75 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_long_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
76 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
77 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locName),ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
78 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_long_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
80 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
81 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
82 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locName),ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
83 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
86 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MAX(ILNBLNK(locName),1) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
90 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') 'Mass-Weighted ', locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
98 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
103 |
PTRACERS_WRITE_TIMEAVE |
ilnb = ILNBLNK(PTRACERS_names(ii)) |
|
./pkg/ptracers/ptracers_write_timeave.F |
104 |
PTRACERS_WRITE_TIMEAVE |
WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
53 |
PTRACERS_WRITE_TIMEAVE |
INTEGER ii,jj, ilnb |
|
./pkg/mnc/mnc_cw_model_attr.F |
42 |
MNC_CW_SET_GATTR |
integer ilnb |
|
./pkg/mnc/mnc_cw_model_attr.F |
47 |
MNC_CW_SET_GATTR |
ilnb = ILNBLNK(the_run_name) |
|
./pkg/mnc/mnc_cw_model_attr.F |
48 |
MNC_CW_SET_GATTR |
IF (ilnb .GT. 0) THEN |