| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS.h |
63 |
NO PROCEDURE |
_RL levs (numLevels,numlists) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
79 |
NO PROCEDURE |
& freq, phase, levs, nlevels, |
|
./pkg/diagnostics/diagnostics_out.F |
149 |
DIAGNOSTICS_OUT |
& 'diag_levels', levs(1,listId), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
179 |
DIAGNOSTICS_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
186 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_out.F |
193 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
293 |
DIAGNOSTICS_OUT |
I levs(k,listId),undef, |
|
./pkg/diagnostics/diagnostics_out.F |
347 |
DIAGNOSTICS_OUT |
call GETDIAG(levs(k,listId),undef, |
|
./pkg/diagnostics/diagstats_mnc_out.F |
134 |
DIAGSTATS_MNC_OUT |
& 'diag_levels', levs(1,listId), myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
157 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
164 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
171 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_summary.F |
98 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,50I4)')' levels:',(nint(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_readparms.F |
162 |
DIAGNOSTICS_READPARMS |
levs(k,n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
207 |
DIAGNOSTICS_READPARMS |
levs(nlevels(n),n) = levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
375 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') ' Levels: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
173 |
DIAGNOSTICS_SET_POINTERS |
levs(k,ld) = k |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
182 |
DIAGNOSTICS_SET_POINTERS |
& ' Levels: ', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
190 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./pkg/fizhi/fizhi_init_chem.F |
115 |
READ_OZ |
subroutine READ_OZ (ku,oz,lats,levs,nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
137 |
READ_OZ |
_RL levs(nlev) |
|
./pkg/fizhi/fizhi_init_chem.F |
159 |
READ_OZ |
levs(lev) = plevs(lev) |
|
./pkg/fizhi/fizhi_init_chem.F |
48 |
READ_QZ |
subroutine READ_QZ (ku,qz,lats,levs,nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
69 |
READ_QZ |
_RL levs(nlev) |
|
./pkg/fizhi/fizhi_init_chem.F |
89 |
READ_QZ |
read(ku,1000) (levs(lev),lev=1,nlev) |
|
./pkg/fizhi/fizhi_utils.F |
499 |
STRIP2TILE |
subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
519 |
STRIP2TILE |
integer ia,ib,irun,levs,npeice |
|
./pkg/fizhi/fizhi_utils.F |
520 |
STRIP2TILE |
_RL a(ia,levs), b(ib,levs) |
|
./pkg/fizhi/fizhi_utils.F |
529 |
STRIP2TILE |
do 100 k=1,levs |
|
./pkg/fizhi/fizhi_utils.F |
534 |
STRIP2TILE |
do 200 k=1,levs |
|
./pkg/fizhi/fizhi_utils.F |
546 |
PASTE2GRD_OLD |
subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
573 |
PASTE2GRD_OLD |
integer ia,ib,levs,numpts,npeice |
|
./pkg/fizhi/fizhi_utils.F |
575 |
PASTE2GRD_OLD |
_RL a(ia,levs), b(ib,levs), chfr(ib) |
|
./pkg/fizhi/fizhi_utils.F |
583 |
PASTE2GRD_OLD |
do L = 1,levs |
|
./pkg/fizhi/fizhi_utils.F |
590 |
PASTE2GRD |
subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice, |
|
./pkg/fizhi/fizhi_utils.F |
619 |
PASTE2GRD |
integer ia,ib,levs,numpts,npeice |
|
./pkg/fizhi/fizhi_utils.F |
621 |
PASTE2GRD |
_RL a(ia,levs), b(ib,levs), chfr(ib) |
|
./pkg/fizhi/fizhi_utils.F |
633 |
PASTE2GRD |
do L= 1,levs |
|
./pkg/fizhi/fizhi_utils.F |
643 |
PASTE2GRD |
do L= 1,levs |