| File |
Line number |
Procedure |
Code |
|
./pkg/gchem/gchem_diagnostics_init.F |
44 |
GCHEM_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb |
|
./pkg/gchem/gchem_diagnostics_init.F |
56 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
|
./pkg/gchem/gchem_diagnostics_init.F |
57 |
GCHEM_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/gchem/gchem_diagnostics_init.F |
58 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = LEN(trcUnits) |
|
./pkg/gchem/gchem_diagnostics_init.F |
59 |
GCHEM_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
|
./pkg/gchem/gchem_diagnostics_init.F |
61 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
|
./pkg/gchem/gchem_diagnostics_init.F |
62 |
GCHEM_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/gchem/gchem_diagnostics_init.F |
63 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locName),ilnb) |
|
./pkg/gchem/gchem_diagnostics_init.F |
64 |
GCHEM_DIAGNOSTICS_INIT |
WRITE(locName,'(A)') PTRACERS_names(iTrc)(1:ilnb) |
|
./pkg/gchem/gchem_diagnostics_init.F |
66 |
GCHEM_DIAGNOSTICS_INIT |
ilnb = MAX(ILNBLNK(locName),1) |
|
./pkg/gchem/gchem_diagnostics_init.F |
69 |
GCHEM_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') locName(1:ilnb), |
|
./pkg/mnc/mnc_cw_model_attr.F |
41 |
MNC_CW_SET_GATTR |
integer ilnb |
|
./pkg/mnc/mnc_cw_model_attr.F |
46 |
MNC_CW_SET_GATTR |
ilnb = ILNBLNK(the_run_name) |
|
./pkg/mnc/mnc_cw_model_attr.F |
47 |
MNC_CW_SET_GATTR |
IF (ilnb .GT. 0) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
107 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
115 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
124 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
134 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') locName(1:ilnb), |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
141 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') locName(1:ilnb), |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
155 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./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 |
177 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb)//' (Explicit part)' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
183 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
190 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
198 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb)//' (Implicit part)' |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
209 |
PTRACERS_DIAGNOSTICS_INIT |
& locName(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
218 |
PTRACERS_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(2A)') locName(1:ilnb), |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
50 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER iTrc, ilnb, ilng, tracerId |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
76 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_units(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
77 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
78 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = LEN(trcUnits) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
79 |
PTRACERS_DIAGNOSTICS_INIT |
trcUnits = PTRACERS_units(iTrc)(1:ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
81 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(PTRACERS_names(iTrc)) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
82 |
PTRACERS_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
83 |
PTRACERS_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locName),ilnb) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
84 |
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_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 |
105 |
PTRACERS_WRITE_TIMEAVE |
ilnb = ILNBLNK(PTRACERS_names(iTr)) |
|
./pkg/ptracers/ptracers_write_timeave.F |
106 |
PTRACERS_WRITE_TIMEAVE |
WRITE(prefix,'(A,A)') 'surf_',PTRACERS_names(iTr)(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
51 |
PTRACERS_WRITE_TIMEAVE |
INTEGER jj, ilnb |
|
./pkg/seaice/seaice_diagnostics_init.F |
151 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrUnit(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
152 |
SEAICE_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/seaice/seaice_diagnostics_init.F |
153 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = LEN(locUnitTr) |
|
./pkg/seaice/seaice_diagnostics_init.F |
154 |
SEAICE_DIAGNOSTICS_INIT |
locUnitTr = SItrUnit(iTr)(1:ilnb) |
|
./pkg/seaice/seaice_diagnostics_init.F |
156 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrNameLong(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
157 |
SEAICE_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/seaice/seaice_diagnostics_init.F |
158 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locNameTr),ilnb) |
|
./pkg/seaice/seaice_diagnostics_init.F |
159 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(locNameTr,'(A)') SItrNameLong(iTr)(1:ilnb) |
|
./pkg/seaice/seaice_diagnostics_init.F |
161 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrName(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
162 |
SEAICE_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/seaice/seaice_diagnostics_init.F |
163 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = MIN(LEN(locNameTr),ilnb) |
|
./pkg/seaice/seaice_diagnostics_init.F |
164 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(locNameTr,'(2A)') SItrName(iTr)(1:ilnb),' tracer' |
|
./pkg/seaice/seaice_diagnostics_init.F |
167 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = MAX(ILNBLNK(locNameTr),1) |
|
./pkg/seaice/seaice_diagnostics_init.F |
170 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagTitle,'(4A)') locNameTr(1:ilnb), |
|
./pkg/seaice/seaice_diagnostics_init.F |
422 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrUnit(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
423 |
SEAICE_DIAGNOSTICS_INIT |
IF ( ilnb.GE.1 ) THEN |
|
./pkg/seaice/seaice_diagnostics_init.F |
424 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(diagUnits,'(2A)') SItrUnit(iTr)(1:ilnb),'.kg/m^2/s' |
|
./pkg/seaice/seaice_diagnostics_init.F |
59 |
SEAICE_DIAGNOSTICS_INIT |
INTEGER iTr, ilnb, numMateTr, numMateTrPreTh |