Symbol Description Uses
l loop indices 540


File Line number Procedure Code
./pkg/exch2/w2_set_map_cumsum.F 305 W2_SET_MAP_CUMSUM 
           l = tS + (k-1)*nbTx
./pkg/exch2/w2_set_map_cumsum.F 306 W2_SET_MAP_CUMSUM 
           W2_cumSum_tiles(2,l,tN) = 1
./pkg/exch2/w2_set_map_cumsum.F 44 W2_SET_MAP_CUMSUM 
      INTEGER tS, bi, bj, l, is, ie
./pkg/exf/exf_interp.F 156 EXF_INTERP 
      DO l=-1,4
./pkg/exf/exf_interp.F 157 EXF_INTERP 
        prtPole(l) = 0.
./pkg/exf/exf_interp.F 225 EXF_INTERP 
      DO l=-1,2
./pkg/exf/exf_interp.F 226 EXF_INTERP 
       j = l
./pkg/exf/exf_interp.F 227 EXF_INTERP 
       IF ( l.GE.1 ) j = nyIn+l
./pkg/exf/exf_interp.F 240 EXF_INTERP 
        i = l + 2*( (l+1)/2 )
./pkg/exf/exf_interp.F 257 EXF_INTERP 
       DO l= 3,4
./pkg/exf/exf_interp.F 260 EXF_INTERP 
       DO l=-1,4
./pkg/exf/exf_interp.F 262 EXF_INTERP 
        j = l
./pkg/exf/exf_interp.F 263 EXF_INTERP 
        IF ( l.GE.2 ) j = nyIn+l-2
./pkg/exf/exf_interp.F 275 EXF_INTERP 
          prtPole(l) = prtPole(l) + 0.1
./pkg/exf/exf_interp.F 283 EXF_INTERP 
          prtPole(l) = prtPole(l) + 0.9
./pkg/exf/exf_interp.F 294 EXF_INTERP 
       DO l=0,1
./pkg/exf/exf_interp.F 295 EXF_INTERP 
        k = l*(nyIn+3) -1
./pkg/exf/exf_interp.F 297 EXF_INTERP 
         j = l*(nyIn+1)
./pkg/exf/exf_interp.F 298 EXF_INTERP 
         i = l*(nyIn-1) +1
./pkg/exf/exf_interp.F 306 EXF_INTERP 
         prtPole(3*l) = prtPole(3*l) + 0.3
./pkg/exf/exf_interp.F 318 EXF_INTERP 
        l = ILNBLNK(inFile)
./pkg/exf/exf_interp.F 321 EXF_INTERP 
     &   ' EXF_INTERP: file="',inFile(1:l),'", rec=', irecord,
./pkg/exf/exf_interp.F 359 EXF_INTERP 
            l = ILNBLNK(inFile)
./pkg/exf/exf_interp.F 361 EXF_INTERP 
     &        'EXF_INTERP: file="', inFile(1:l), '", rec=', irecord
./pkg/exf/exf_interp.F 399 EXF_INTERP 
        DO l=1,nLoop
./pkg/exf/exf_interp.F 419 EXF_INTERP 
            l = ILNBLNK(inFile)
./pkg/exf/exf_interp.F 421 EXF_INTERP 
     &        'EXF_INTERP: file="', inFile(1:l), '", rec=', irecord,
./pkg/exf/exf_interp.F 94 EXF_INTERP 
      INTEGER  i, j, k, l
./pkg/exf/exf_interp_uv.F 106 EXF_INTERP_UV 
      INTEGER  i, j, k, l
./pkg/exf/exf_interp_uv.F 171 EXF_INTERP_UV 
      DO l=-1,4
./pkg/exf/exf_interp_uv.F 172 EXF_INTERP_UV 
        prtPole(l) = 0.
./pkg/exf/exf_interp_uv.F 240 EXF_INTERP_UV 
      DO l=-1,2
./pkg/exf/exf_interp_uv.F 241 EXF_INTERP_UV 
       j = l
./pkg/exf/exf_interp_uv.F 242 EXF_INTERP_UV 
       IF ( l.GE.1 ) j = nyIn+l
./pkg/exf/exf_interp_uv.F 257 EXF_INTERP_UV 
        i = l + 2*( (l+1)/2 )
./pkg/exf/exf_interp_uv.F 273 EXF_INTERP_UV 
       DO l=-1,4
./pkg/exf/exf_interp_uv.F 274 EXF_INTERP_UV 
        j = l
./pkg/exf/exf_interp_uv.F 275 EXF_INTERP_UV 
        IF ( l.GE.2 ) j = nyIn+l-2
./pkg/exf/exf_interp_uv.F 310 EXF_INTERP_UV 
          prtPole(l) = prtPole(l) + 0.1
./pkg/exf/exf_interp_uv.F 316 EXF_INTERP_UV 
       DO l=0,1
./pkg/exf/exf_interp_uv.F 317 EXF_INTERP_UV 
        k = l*(nyIn+3) -1
./pkg/exf/exf_interp_uv.F 319 EXF_INTERP_UV 
         j = l*(nyIn+1)
./pkg/exf/exf_interp_uv.F 320 EXF_INTERP_UV 
         i = l*(nyIn-1) +1
./pkg/exf/exf_interp_uv.F 330 EXF_INTERP_UV 
         prtPole(3*l) = prtPole(3*l) + 0.3
./pkg/exf/exf_interp_uv.F 341 EXF_INTERP_UV 
        l = ILNBLNK(inFileU)
./pkg/exf/exf_interp_uv.F 343 EXF_INTERP_UV 
     &   ' EXF_INTERP_UV: fileU="',inFileU(1:l),'", rec=', irecord,
./pkg/exf/exf_interp_uv.F 385 EXF_INTERP_UV 
            l = ILNBLNK(inFileU)
./pkg/exf/exf_interp_uv.F 387 EXF_INTERP_UV 
     &        'EXF_INTERP_UV: fileU="',inFileU(1:l),'", rec=',irecord
./pkg/exf/exf_interp_uv.F 425 EXF_INTERP_UV 
        DO l=1,nLoop
./pkg/exf/exf_interp_uv.F 445 EXF_INTERP_UV 
            l = ILNBLNK(inFileU)
./pkg/exf/exf_interp_uv.F 447 EXF_INTERP_UV 
     &      'EXF_INTERP_UV: file="', inFileU(1:l), '", rec=', irecord,
./pkg/exf/exf_interpolate.F 128 EXF_INTERPOLATE 
      INTEGER  i, j, k, l
./pkg/exf/exf_interpolate.F 142 EXF_INTERPOLATE 
           DO l=0,1
./pkg/exf/exf_interpolate.F 143 EXF_INTERPOLATE 
            px_ind(l+1) = x_in(w_ind(i,j)+l)
./pkg/exf/exf_interpolate.F 144 EXF_INTERPOLATE 
            py_ind(l+1) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interpolate.F 177 EXF_INTERPOLATE 
           DO l=-1,2
./pkg/exf/exf_interpolate.F 178 EXF_INTERPOLATE 
            px_ind(l+2) = x_in(w_ind(i,j)+l)
./pkg/exf/exf_interpolate.F 179 EXF_INTERPOLATE 
            py_ind(l+2) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interpolate.F 236 EXF_INTERPOLATE 
         l = ILNBLNK(inFile)
./pkg/exf/exf_interpolate.F 238 EXF_INTERPOLATE 
     &    'EXF_INTERPOLATE: file="', inFile(1:l), '", rec=', irecord
./pkg/fizhi/fizhi_fillnegs.F 189 TRACER_FILL 
      do l=1,lm
./pkg/fizhi/fizhi_fillnegs.F 89 TRACER_FILL 
      integer  i,j,l,im1,ip1,imax,m
./pkg/fizhi/fizhi_gwdrag.F 383 GWDD 
      do l = 1,Lm
./pkg/fizhi/fizhi_gwdrag.F 391 GWDD 
      do l = 2,Lm
./pkg/fizhi/fizhi_gwdrag.F 431 GWDD 
       do l = 2,nbase(i)
./pkg/fizhi/fizhi_gwdrag.F 448 GWDD 
      do l = 2,nbase(i)
./pkg/fizhi/fizhi_gwdrag.F 476 GWDD 
        do l = 1,nthin(i)
./pkg/fizhi/fizhi_gwdrag.F 489 GWDD 
       do l = nthin(i)+1,nbase(i)
./pkg/fizhi/fizhi_gwdrag.F 530 GWDD 
        if( l.eq.2 ) crif2 = min(0.7 _d 0,crif2)
./pkg/fizhi/fizhi_gwdrag.F 554 GWDD 
       do l = nbase(i)+1,Lm+1
./pkg/fizhi/fizhi_gwdrag.F 564 GWDD 
        if( l.eq.Lm+1 ) then
./pkg/fizhi/fizhi_gwdrag.F 637 GWDD 
      do l = nthin(i)+1,Lm
./pkg/fizhi/fizhi_gwdrag.F 656 GWDD 
        do l = 2,nthin(i)
./pkg/fizhi/fizhi_gwdrag.F 665 GWDD 
      do l = 1,Lm
./pkg/fizhi/fizhi_lwrad.F 39 LWRIO 
      integer i,j,l,n,nn
./pkg/fizhi/fizhi_moist.F 1237 RAS 
       rains(i,l) = 0.
./pkg/fizhi/fizhi_moist.F 139 MOISTIO 
      integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt
./pkg/fizhi/fizhi_moist.F 226 MOISTIO 
        IF((qqz(i,j,l).gt.qqcolmax(i,j))
./pkg/fizhi/fizhi_moist.F 228 MOISTIO 
         qqcolmax(i,j) = qqz(i,j,l)
./pkg/fizhi/fizhi_moist.F 231 MOISTIO 
        if((qqz(i,j,l).lt.qqcolmin(i,j))
./pkg/fizhi/fizhi_moist.F 330 MOISTIO 
      do l=1,lm
./pkg/fizhi/fizhi_moist.F 333 MOISTIO 
      dumoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F 334 MOISTIO 
      dvmoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F 335 MOISTIO 
      dtmoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F 337 MOISTIO 
        dqmoist(i,j,l,nt) = 0.
./pkg/fizhi/fizhi_moist.F 551 MOISTIO 
        CVTH(I,L) =  (TH (I,L) - saveth(i,l))
./pkg/fizhi/fizhi_moist.F 552 MOISTIO 
        CVQ (I,L) =  (SHL(I,L) - saveq (i,l))
./pkg/fizhi/fizhi_moist.F 564 MOISTIO 
        TH (I,L) = saveth(i,l) + cvth(i,l)
./pkg/fizhi/fizhi_moist.F 565 MOISTIO 
        SHL(I,L) = saveq (i,l) + cvq (i,l)
./pkg/fizhi/fizhi_moist.F 580 MOISTIO 
         CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv
./pkg/fizhi/fizhi_moist.F 670 MOISTIO 
       TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv
./pkg/fizhi/fizhi_moist.F 677 MOISTIO 
        TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv
./pkg/fizhi/fizhi_moist.F 743 MOISTIO 
          do l=lup,lm
./pkg/fizhi/fizhi_moist.F 744 MOISTIO 
            if (saveth(i,l)*plk(i,l).le. tice ) then
./pkg/fizhi/fizhi_step_diag.F 222 FIZHI_STEP_DIAG 
     & ( lwdt(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 224 FIZHI_STEP_DIAG 
     &                      * pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 236 FIZHI_STEP_DIAG 
     & ( lwdtclr(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 238 FIZHI_STEP_DIAG 
     &                      * pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 250 FIZHI_STEP_DIAG 
     &  + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 251 FIZHI_STEP_DIAG 
     &                   pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 263 FIZHI_STEP_DIAG 
     &  + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 264 FIZHI_STEP_DIAG 
     &                   pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 341 FIZHI_STEP_DIAG 
     &             moistt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 365 FIZHI_STEP_DIAG 
     &             turbt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 390 FIZHI_STEP_DIAG 
     &             *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 414 FIZHI_STEP_DIAG 
     &             swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_swrad.F 438 SWRIO 
              alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0)
./pkg/fizhi/fizhi_swrad.F 471 SWRIO 
      do l=1,lm
./pkg/fizhi/fizhi_turb.F 1148 TURBIO 
      do l = 1,nlay
./pkg/fizhi/fizhi_turb.F 1174 TURBIO 
      do l = 1,nlay
./pkg/fizhi/fizhi_turb.F 1226 TURBIO 
          tmpdiag(i,1) = dtturb(i,1,l) * pkz(i,1,l)*atimstp*secday
./pkg/fizhi/fizhi_turb.F 1237 TURBIO 
      do l =1,nlay
./pkg/fizhi/fizhi_turb.F 1239 TURBIO 
        duturb(i,1,l) = duturb(i,1,l)*atimstp
./pkg/fizhi/fizhi_turb.F 1240 TURBIO 
        dvturb(i,1,l) = dvturb(i,1,l)*atimstp
./pkg/fizhi/fizhi_turb.F 1241 TURBIO 
        dtturb(i,1,l) = dtturb(i,1,l)*thtgz(i)
./pkg/fizhi/fizhi_turb.F 1245 TURBIO 
         dqturb(i,1,l,nt) = dqturb(i,1,l,nt)*thtgz(i)
./pkg/fizhi/fizhi_turb.F 2234 TRBFLX 
         IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then
./pkg/fizhi/fizhi_turb.F 2235 TRBFLX 
          qqcolmax(i) = qq(i,l)
./pkg/fizhi/fizhi_turb.F 2238 TRBFLX 
         if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev))
./pkg/fizhi/fizhi_turb.F 2239 TRBFLX 
     1                                                levpbl(i)=l
./pkg/fizhi/fizhi_turb.F 878 TURBIO 
      do  l=1,nlay
./pkg/fizhi/fizhi_turb.F 879 TURBIO 
      call STRIP2TILE(uz(1,1,l),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 882 TURBIO 
      tends(i) = ( u(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 884 TURBIO 
      call PASTIT (tends,dumsc(1,l),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 886 TURBIO 
      call STRIP2TILE(vz(1,1,l),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 889 TURBIO 
      tends(i) = ( v(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 891 TURBIO 
      call PASTIT (tends,dvmsc(1,l),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 893 TURBIO 
      call STRIP2TILE(tz(1,1,l),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 896 TURBIO 
      tends(i) = ( th(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 899 TURBIO 
      call PASTIT (tends,dtmsc(1,l),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 901 TURBIO 
      call STRIP2TILE(qz(1,1,l,1),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 904 TURBIO 
      tends(i) = ( sh(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 907 TURBIO 
      call PASTIT (tends,dqmsc(1,l,1),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 958 TURBIO 
      do l=1,nlay
./pkg/fizhi/fizhi_turb.F 960 TURBIO 
      sttflux(i,l) = sttflux(i,l) * cp
./pkg/fizhi/fizhi_turb.F 967 TURBIO 
      do l=1,nlay
./pkg/fizhi/fizhi_turb.F 969 TURBIO 
      stqflux(i,l) = stqflux(i,l) * alhl
./pkg/fizhi/fizhi_utils.F 391 STRIPIT 
      subroutine STRIPIT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 393 STRIPIT 
      integer ia,ib,irun,l,k
./pkg/fizhi/fizhi_utils.F 394 STRIPIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 402 STRIPIT 
        do 100 j=1,l
./pkg/fizhi/fizhi_utils.F 407 STRIPIT 
        do 200 j=1,l
./pkg/fizhi/fizhi_utils.F 419 STRIPITINT 
      subroutine STRIPITINT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 421 STRIPITINT 
      integer ia,ib,irun,l,k,a(ia,l),b(ib,l)
./pkg/fizhi/fizhi_utils.F 429 STRIPITINT 
        do 100 j=1,l
./pkg/fizhi/fizhi_utils.F 434 STRIPITINT 
        do 200 j=1,l
./pkg/fizhi/fizhi_utils.F 450 PASTIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 463 PSTBITINT 
      subroutine PSTBITINT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 466 PSTBITINT 
      _RL a(ia,l)
./pkg/fizhi/fizhi_utils.F 467 PSTBITINT 
      integer b(ib,l)
./pkg/fizhi/fizhi_utils.F 482 PSTBMPIT 
      subroutine PSTBMPIT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 485 PSTBMPIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 932 PKAPPA 
       pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1)
./pkg/fizhi/fizhi_utils.F 933 PKAPPA 
     .             - ple (i,j,l)*pkle(i,j,l) )
./pkg/fizhi/fizhi_utils.F 934 PKAPPA 
     .           /  ( akap1* (ple (i,j,l+1)-ple (i,j,l)) )
./pkg/fizhi/step_fizhi_fg.F 75 STEP_FIZHI_FG 
       print *,' thphy at level ',l,' ',tempij
./pkg/fizhi/step_fizhi_fg.F 83 STEP_FIZHI_FG 
       print *,' sphy at level ',l,' ',tempij
./pkg/fizhi/step_fizhi_fg.F 98 STEP_FIZHI_FG 
       print *,' sphy after qcheck at level ',l,' ',tempij
./pkg/layers/layers_fluxcalc.F 750 LAYERS_LOCATE 
      INTEGER l, km
./pkg/layers/layers_fluxcalc.F 761 LAYERS_LOCATE 
      DO l = 1,m
./pkg/mnc/mnc_grid.F 241 MNC_GRID_GET_DIMIND 
      integer i,j,k,l, n,n1, ngrid, ds,de
./pkg/mnc/mnc_grid.F 255 MNC_GRID_GET_DIMIND 
          l = mnc_fd_ind(indf,k)
./pkg/mnc/mnc_grid.F 256 MNC_GRID_GET_DIMIND 
          n1 = ILNBLNK(mnc_d_names(l))
./pkg/mnc/mnc_grid.F 258 MNC_GRID_GET_DIMIND 
     &         .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN
./pkg/profiles/profiles_init_fixed.F 154 PROFILES_INIT_FIXED 
         do l=1,1000
./pkg/profiles/profiles_init_fixed.F 156 PROFILES_INIT_FIXED 
           profiles_data_buff(m,l,k,bi,bj)=0. _d 0
./pkg/profiles/profiles_init_fixed.F 157 PROFILES_INIT_FIXED 
           profiles_weight_buff(m,l,k,bi,bj)=0. _d 0
./pkg/profiles/profiles_init_fixed.F 41 PROFILES_INIT_FIXED 
      integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile
./pkg/profiles/profiles_init_fixed.F 799 PROFILES_INIT_FIXED 
           do l=1,NLEVELCOMBMAX-1
./pkg/profiles/profiles_init_fixed.F 800 PROFILES_INIT_FIXED 
            if(prof_depth_comb(l,bi,bj) .ne. -999. _d 0) then
./pkg/profiles/profiles_init_fixed.F 803 PROFILES_INIT_FIXED 
     &           prof_depth_comb(l,bi,bj).and.
./pkg/profiles/profiles_init_fixed.F 804 PROFILES_INIT_FIXED 
     &           l.EQ.1)  then
./pkg/profiles/profiles_init_fixed.F 806 PROFILES_INIT_FIXED 
     &            prof_depth_comb(l,bi,bj)
./pkg/profiles/profiles_init_fixed.F 807 PROFILES_INIT_FIXED 
                 prof_depth_comb(l,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 809 PROFILES_INIT_FIXED 
                 do il = NLEVELCOMBMAX-1, l+2,-1
./pkg/profiles/profiles_init_fixed.F 813 PROFILES_INIT_FIXED 
                 prof_depth_comb(l+1,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 816 PROFILES_INIT_FIXED 
     &           prof_depth_comb(l,bi,bj).and.
./pkg/profiles/profiles_init_fixed.F 818 PROFILES_INIT_FIXED 
     &           prof_depth_comb(l+1,bi,bj))  then
./pkg/profiles/profiles_init_fixed.F 821 PROFILES_INIT_FIXED 
     &            prof_depth_comb(l+1,bi,bj)
./pkg/profiles/profiles_init_fixed.F 822 PROFILES_INIT_FIXED 
                 prof_depth_comb(l+1,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 824 PROFILES_INIT_FIXED 
                 do il = NLEVELCOMBMAX-1, l+3,-1
./pkg/profiles/profiles_init_fixed.F 828 PROFILES_INIT_FIXED 
                 prof_depth_comb(l+2,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 831 PROFILES_INIT_FIXED 
     &           prof_depth_comb(l,bi,bj).and.
./pkg/profiles/profiles_init_fixed.F 832 PROFILES_INIT_FIXED 
     &           prof_depth_comb(l+1,bi,bj).eq.-999. _d 0)  then
./pkg/profiles/profiles_init_fixed.F 833 PROFILES_INIT_FIXED 
                 prof_depth_comb(l+1,bi,bj) =
./pkg/profiles/profiles_init_fixed.F 888 PROFILES_INIT_FIXED 
         DO l=0,sNx+1
./pkg/profiles/profiles_init_fixed.F 889 PROFILES_INIT_FIXED 
        xy_buffer_r8(l,m)=xC(l,m,bi,bj)
./pkg/profiles/profiles_init_fixed.F 908 PROFILES_INIT_FIXED 
         DO l=0,sNx+1
./pkg/profiles/profiles_init_fixed.F 909 PROFILES_INIT_FIXED 
                xy_buffer_r8(l,m)=yC(l,m,bi,bj)
./pkg/seaice/seaice_do_ridging.F 310 SEAICE_DO_RIDGING 
       DO l=1,nITD
./pkg/seaice/seaice_do_ridging.F 325 SEAICE_DO_RIDGING 
            IF ( hrMin(i,j,k) .GE. hLimit(l) .OR.
./pkg/seaice/seaice_do_ridging.F 326 SEAICE_DO_RIDGING 
     &           hrMax(i,j,k) .LE. hLimit(l-1) ) THEN
./pkg/seaice/seaice_do_ridging.F 332 SEAICE_DO_RIDGING 
             hL = MAX(hrMin(i,j,k), hLimit(l-1))
./pkg/seaice/seaice_do_ridging.F 333 SEAICE_DO_RIDGING 
             hR = MIN(hrMax(i,j,k), hLimit(l))
./pkg/seaice/seaice_do_ridging.F 347 SEAICE_DO_RIDGING 
         IF ( l.LT.nITD ) THEN
./pkg/seaice/seaice_do_ridging.F 351 SEAICE_DO_RIDGING 
     &           .AND. hrMin(i,j,k) .LT. hLimit(l)
./pkg/seaice/seaice_do_ridging.F 353 SEAICE_DO_RIDGING 
             hL   = MAX( hrMin(i,j,k), hLimit(l-1) )
./pkg/seaice/seaice_do_ridging.F 354 SEAICE_DO_RIDGING 
             hR   = hLimit(l)
./pkg/seaice/seaice_do_ridging.F 369 SEAICE_DO_RIDGING 
              hL   = MAX( hrMin(i,j,k), hLimit(l-1) )
./pkg/seaice/seaice_do_ridging.F 382 SEAICE_DO_RIDGING 
          AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F 384 SEAICE_DO_RIDGING 
          HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F 386 SEAICE_DO_RIDGING 
          HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F 62 SEAICE_DO_RIDGING 
      INTEGER k, l, n
./pkg/seaice/seaice_jfnk.F 529 SEAICE_JFNK_UPDATE 
      INTEGER l
./pkg/seaice/seaice_jfnk.F 542 SEAICE_JFNK_UPDATE 
      l = 0
./pkg/seaice/seaice_jfnk.F 572 SEAICE_JFNK_UPDATE 
       doLineSearch = doLineSearch .AND. l .LT. 4
./pkg/seaice/seaice_jfnk.F 580 SEAICE_JFNK_UPDATE 
       l = l + 1
./pkg/seaice/seaice_jfnk.F 587 SEAICE_JFNK_UPDATE 
     &        newtonIter, l, facLS, JFNKresidual, resLoc
./pkg/seaice/seaice_readparms.F 441 SEAICE_READPARMS 
      DO l=2,nITD
./pkg/seaice/seaice_readparms.F 442 SEAICE_READPARMS 
       SEAICE_PDF(l)     = 0. _d 0
./pkg/seaice/seaice_readparms.F 446 SEAICE_READPARMS 
      DO l=1,nITD
./pkg/seaice/seaice_readparms.F 447 SEAICE_READPARMS 
       SEAICE_PDF(l)     = UNSET_RL
./pkg/seaice/seaice_readparms.F 58 SEAICE_READPARMS 
      INTEGER l
./pkg/seaice/seaice_readparms.F 669 SEAICE_READPARMS 
      DO l = 1, SEAICE_multDim
./pkg/seaice/seaice_readparms.F 670 SEAICE_READPARMS 
       IF (SEAICE_PDF(l).EQ.UNSET_RL) SEAICE_PDF(l) = ONE/tmp
./pkg/seaice/seaice_readparms.F 672 SEAICE_READPARMS 
      DO l = SEAICE_multDim+1, nITD
./pkg/seaice/seaice_readparms.F 673 SEAICE_READPARMS 
       IF (SEAICE_PDF(l).EQ.UNSET_RL) SEAICE_PDF(l) = 0. _d 0
./pkg/streamice/streamice_driving_stress.F 38 STREAMICE_DRIVING_STRESS 
      INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress_fd.F 38 STREAMICE_DRIVING_STRESS_FD 
      INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress_ppm.F 100 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 126 STREAMICE_DRIVING_STRESS_PPM 
             DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 127 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 128 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 144 STREAMICE_DRIVING_STRESS_PPM 
             DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 145 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 146 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 157 STREAMICE_DRIVING_STRESS_PPM 
             DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 158 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 159 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 189 STREAMICE_DRIVING_STRESS_PPM 
              DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 190 STREAMICE_DRIVING_STRESS_PPM 
               IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 191 STREAMICE_DRIVING_STRESS_PPM 
                taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 223 STREAMICE_DRIVING_STRESS_PPM 
             DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 224 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 225 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 252 STREAMICE_DRIVING_STRESS_PPM 
             DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 253 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 254 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 269 STREAMICE_DRIVING_STRESS_PPM 
             l = 0
./pkg/streamice/streamice_driving_stress_ppm.F 271 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 272 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 282 STREAMICE_DRIVING_STRESS_PPM 
             l = 1
./pkg/streamice/streamice_driving_stress_ppm.F 284 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 285 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 315 STREAMICE_DRIVING_STRESS_PPM 
              DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 316 STREAMICE_DRIVING_STRESS_PPM 
               IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 317 STREAMICE_DRIVING_STRESS_PPM 
                taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 38 STREAMICE_DRIVING_STRESS_PPM 
      INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress_ppm.F 98 STREAMICE_DRIVING_STRESS_PPM 
             DO l=0,1
./pkg/streamice/streamice_driving_stress_ppm.F 99 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_forced_buttress.F 38 STREAMICE_FORCED_BUTTRESS 
      INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_taub.F 37 STREAMICE_TAUB 
      INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_taub.F 65 STREAMICE_TAUB 
            DO l=0,1
./pkg/streamice/streamice_taub.F 67 STREAMICE_TAUB 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_taub.F 70 STREAMICE_TAUB 
     &        U_new_si(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F 72 STREAMICE_TAUB 
     &        U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F 75 STREAMICE_TAUB 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_taub.F 78 STREAMICE_TAUB 
     &        V_new_si(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F 80 STREAMICE_TAUB 
     &        V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_vel_phistage.F 113 STREAMICE_VEL_PHISTAGE 
     +l) THEN
./pkg/streamice/streamice_vel_solve.F 52 STREAMICE_VEL_SOLVE 
      INTEGER i, j, k, l, iter, cg_iters, bi, bj
./pkg/streamice/streamice_vel_solve_openad.F 44 STREAMICE_VEL_SOLVE_OPENAD 
      INTEGER i, j, k, l, bi, bj, loopiter
./pkg/streamice/streamice_visc_beta.F 36 STREAMICE_VISC_BETA 
      INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_visc_beta.F 50 STREAMICE_VISC_BETA 
            DO l=0,1
./pkg/streamice/streamice_visc_beta.F 52 STREAMICE_VISC_BETA 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 54 STREAMICE_VISC_BETA 
     &        U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta.F 56 STREAMICE_VISC_BETA 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 58 STREAMICE_VISC_BETA 
     &        V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 42 STREAMICE_VISC_BETA_HYBRID 
      INTEGER i, j, bi, bj, k, l, m
./pkg/streamice/streamice_visc_beta_hybrid.F 70 STREAMICE_VISC_BETA_HYBRID 
            DO l=0,1
./pkg/streamice/streamice_visc_beta_hybrid.F 72 STREAMICE_VISC_BETA_HYBRID 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 74 STREAMICE_VISC_BETA_HYBRID 
     &        U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 76 STREAMICE_VISC_BETA_HYBRID 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 78 STREAMICE_VISC_BETA_HYBRID 
     &        V_streamice(i+k,j+l,bi,bj)
./pkg/admtlm/admtlm_dsvd.F 204 ADMTLM_DSVD 
      integer l, ilinsysinfo, ii, jj
./pkg/admtlm/admtlm_dsvd.F 436 ADMTLM_DSVD 
            do l = 1, n
./pkg/admtlm/admtlm_dsvd.F 437 ADMTLM_DSVD 
               phtmpadmtlm(l) = workd(ipntr(1)+l-1)
./pkg/admtlm/admtlm_dsvd.F 459 ADMTLM_DSVD 
            do l = 1, n
./pkg/admtlm/admtlm_dsvd.F 460 ADMTLM_DSVD 
               workd(ipntr(2)+l-1) = phtmpadmtlm(l)
./pkg/admtlm/admtlm_dsvd.F 591 ADMTLM_DSVD 
               do l = 1, n
./pkg/admtlm/admtlm_dsvd.F 592 ADMTLM_DSVD 
                  tmpvec1(l) = v(l,j)
./pkg/admtlm/admtlm_dsvd.F 600 ADMTLM_DSVD 
               call DCOPY( m, tmpvec2, 1, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 601 ADMTLM_DSVD 
               temp = one / dnrm2( m, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 603 ADMTLM_DSVD 
               print *, 'ph-print ', j, dnrm2( m, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 605 ADMTLM_DSVD 
               call DSCAL(m , temp, u(l,j), 1 )
./pkg/diagnostics/diag_vegtile_fill.F 201 DIAG_VEGTILE_FILL 
           DO l=1,diagSt_nbLists
./pkg/diagnostics/diag_vegtile_fill.F 202 DIAG_VEGTILE_FILL 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diag_vegtile_fill.F 203 DIAG_VEGTILE_FILL 
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 205 DIAG_VEGTILE_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diag_vegtile_fill.F 66 DIAG_VEGTILE_FILL 
      INTEGER iSp, ndId, j,l
./pkg/diagnostics/diagnostics_fill.F 130 DIAGNOSTICS_FILL 
           DO l=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_fill.F 131 DIAGNOSTICS_FILL 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diagnostics_fill.F 132 DIAGNOSTICS_FILL 
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_fill.F 134 DIAGNOSTICS_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fill.F 65 DIAGNOSTICS_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill_field.F 472 DIAGNOSTICS_CUMULATE 
      INTEGER i, j, l
./pkg/diagnostics/diagnostics_fill_field.F 481 DIAGNOSTICS_CUMULATE 
       l = MIN(k,sizF)
./pkg/diagnostics/diagnostics_fill_field.F 489 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 498 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 507 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 516 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 524 DIAGNOSTICS_CUMULATE 
       l = MIN(k,sizF)
./pkg/diagnostics/diagnostics_fill_field.F 531 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 539 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 547 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 555 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_rs.F 130 DIAGNOSTICS_FILL_RS 
           DO l=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_fill_rs.F 131 DIAGNOSTICS_FILL_RS 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diagnostics_fill_rs.F 132 DIAGNOSTICS_FILL_RS 
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 134 DIAGNOSTICS_FILL_RS 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fill_rs.F 65 DIAGNOSTICS_FILL_RS 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fract_fill.F 174 DIAGNOSTICS_FRACT_FILL 
           DO l=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_fract_fill.F 175 DIAGNOSTICS_FRACT_FILL 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diagnostics_fract_fill.F 176 DIAGNOSTICS_FRACT_FILL 
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 178 DIAGNOSTICS_FRACT_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fract_fill.F 79 DIAGNOSTICS_FRACT_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_interp_p2p.F 60 DIAGNOSTICS_INTERP_P2P 
      INTEGER  i,l
./pkg/diagnostics/diagnostics_readparms.F 131 DIAGNOSTICS_READPARMS 
      DO l = 1,ldimLoc
./pkg/diagnostics/diagnostics_readparms.F 132 DIAGNOSTICS_READPARMS 
        frequency(l)  = 0.
./pkg/diagnostics/diagnostics_readparms.F 133 DIAGNOSTICS_READPARMS 
        timePhase(l)  = UNSET_RL
./pkg/diagnostics/diagnostics_readparms.F 134 DIAGNOSTICS_READPARMS 
        averagingFreq(l) = 0.
./pkg/diagnostics/diagnostics_readparms.F 135 DIAGNOSTICS_READPARMS 
        averagingPhase(l)= 0.
./pkg/diagnostics/diagnostics_readparms.F 136 DIAGNOSTICS_READPARMS 
        repeatCycle(l)   = 0
./pkg/diagnostics/diagnostics_readparms.F 137 DIAGNOSTICS_READPARMS 
        fileName(l)   = blkFilName
./pkg/diagnostics/diagnostics_readparms.F 142 DIAGNOSTICS_READPARMS 
        missing_value(l)     = oneRL
./pkg/diagnostics/diagnostics_readparms.F 143 DIAGNOSTICS_READPARMS 
        missing_value_int(l) = UNSET_I
./pkg/diagnostics/diagnostics_readparms.F 144 DIAGNOSTICS_READPARMS 
        fileFlags(l)  = blk8c
./pkg/diagnostics/diagnostics_readparms.F 146 DIAGNOSTICS_READPARMS 
          levels(k,l) = UNSET_RL
./pkg/diagnostics/diagnostics_readparms.F 149 DIAGNOSTICS_READPARMS 
          fields(m,l) = blkName
./pkg/diagnostics/diagnostics_readparms.F 179 DIAGNOSTICS_READPARMS 
      DO l = 1,ldimLoc
./pkg/diagnostics/diagnostics_readparms.F 180 DIAGNOSTICS_READPARMS 
        stat_freq(l)  = 0.
./pkg/diagnostics/diagnostics_readparms.F 181 DIAGNOSTICS_READPARMS 
        stat_phase(l) = UNSET_RL
./pkg/diagnostics/diagnostics_readparms.F 182 DIAGNOSTICS_READPARMS 
        stat_fname(l) = blkFilName
./pkg/diagnostics/diagnostics_readparms.F 184 DIAGNOSTICS_READPARMS 
          stat_region(k,l) = UNSET_I
./pkg/diagnostics/diagnostics_readparms.F 187 DIAGNOSTICS_READPARMS 
          stat_fields(m,l) = blkName
./pkg/diagnostics/diagnostics_readparms.F 284 DIAGNOSTICS_READPARMS 
      DO l = 1,ldimLoc
./pkg/diagnostics/diagnostics_readparms.F 285 DIAGNOSTICS_READPARMS 
       iLen = ILNBLNK(fileName(l))
./pkg/diagnostics/diagnostics_readparms.F 289 DIAGNOSTICS_READPARMS 
         freq(n)    = frequency(l)
./pkg/diagnostics/diagnostics_readparms.F 290 DIAGNOSTICS_READPARMS 
         IF ( timePhase(l).NE. UNSET_RL ) THEN
./pkg/diagnostics/diagnostics_readparms.F 291 DIAGNOSTICS_READPARMS 
           phase(n) = timePhase(l)
./pkg/diagnostics/diagnostics_readparms.F 292 DIAGNOSTICS_READPARMS 
         ELSEIF ( frequency(l) .LT. 0. ) THEN
./pkg/diagnostics/diagnostics_readparms.F 293 DIAGNOSTICS_READPARMS 
           phase(n) = -0.5 _d 0 * frequency(l)
./pkg/diagnostics/diagnostics_readparms.F 295 DIAGNOSTICS_READPARMS 
         IF ( averagingFreq(l).GT.0. .AND. repeatCycle(l).GT.1 ) THEN
./pkg/diagnostics/diagnostics_readparms.F 296 DIAGNOSTICS_READPARMS 
           averageFreq(n)  = averagingFreq(l)
./pkg/diagnostics/diagnostics_readparms.F 297 DIAGNOSTICS_READPARMS 
           averagePhase(n) = averagingPhase(l)
./pkg/diagnostics/diagnostics_readparms.F 298 DIAGNOSTICS_READPARMS 
           averageCycle(n) = repeatCycle(l)
./pkg/diagnostics/diagnostics_readparms.F 299 DIAGNOSTICS_READPARMS 
         ELSEIF (averagingFreq(l).NE.0. .OR. repeatCycle(l).NE.0) THEN
./pkg/diagnostics/diagnostics_readparms.F 302 DIAGNOSTICS_READPARMS 
     &       averagingFreq(l), repeatCycle(l)
./pkg/diagnostics/diagnostics_readparms.F 305 DIAGNOSTICS_READPARMS 
     &         ' for list l=', l, ', fileName: ', fileName(l)
./pkg/diagnostics/diagnostics_readparms.F 308 DIAGNOSTICS_READPARMS 
         ELSEIF ( frequency(l) .EQ. 0. ) THEN
./pkg/diagnostics/diagnostics_readparms.F 311 DIAGNOSTICS_READPARMS 
         ELSEIF ( frequency(l) .GT. 0. ) THEN
./pkg/diagnostics/diagnostics_readparms.F 312 DIAGNOSTICS_READPARMS 
           averageFreq(n)  = frequency(l)
./pkg/diagnostics/diagnostics_readparms.F 319 DIAGNOSTICS_READPARMS 
         IF ( missing_value(l) .NE. oneRL )
./pkg/diagnostics/diagnostics_readparms.F 320 DIAGNOSTICS_READPARMS 
     &        misValFlt(n) = missing_value(l)
./pkg/diagnostics/diagnostics_readparms.F 321 DIAGNOSTICS_READPARMS 
         fnames(n)  = fileName (l)
./pkg/diagnostics/diagnostics_readparms.F 322 DIAGNOSTICS_READPARMS 
         fflags(n)  = fileFlags(l)
./pkg/diagnostics/diagnostics_readparms.F 324 DIAGNOSTICS_READPARMS 
         IF ( levels(1,l).NE.UNSET_RL ) THEN
./pkg/diagnostics/diagnostics_readparms.F 326 DIAGNOSTICS_READPARMS 
             IF ( levels(k,l).NE.UNSET_RL .AND.
./pkg/diagnostics/diagnostics_readparms.F 329 DIAGNOSTICS_READPARMS 
               levs(nlevels(n),n) = levels(k,l)
./pkg/diagnostics/diagnostics_readparms.F 330 DIAGNOSTICS_READPARMS 
             ELSEIF ( levels(k,l).NE.UNSET_RL ) THEN
./pkg/diagnostics/diagnostics_readparms.F 335 DIAGNOSTICS_READPARMS 
     &         'when trying to add level(k=', k, ' )=', levels(k,l)
./pkg/diagnostics/diagnostics_readparms.F 338 DIAGNOSTICS_READPARMS 
     &         ' for list l=', l, ', fileName: ', fileName(l)
./pkg/diagnostics/diagnostics_readparms.F 349 DIAGNOSTICS_READPARMS 
           diagName = DIAGS_RENAMED( fields(m,l), myThid )
./pkg/diagnostics/diagnostics_readparms.F 362 DIAGNOSTICS_READPARMS 
     &        ' in list l=', l, ', fileName: ', fileName(l)
./pkg/diagnostics/diagnostics_readparms.F 374 DIAGNOSTICS_READPARMS 
     &    'when trying to add list l=', l
./pkg/diagnostics/diagnostics_readparms.F 377 DIAGNOSTICS_READPARMS 
     &    ' Frq=', frequency(l), ', fileName: ', fileName(l)
./pkg/diagnostics/diagnostics_readparms.F 436 DIAGNOSTICS_READPARMS 
      DO l = 1,ldimLoc
./pkg/diagnostics/diagnostics_readparms.F 437 DIAGNOSTICS_READPARMS 
       iLen = ILNBLNK(stat_fname(l))
./pkg/diagnostics/diagnostics_readparms.F 441 DIAGNOSTICS_READPARMS 
         diagSt_freq(n) = stat_freq(l)
./pkg/diagnostics/diagnostics_readparms.F 442 DIAGNOSTICS_READPARMS 
         IF ( stat_phase(l).NE. UNSET_RL ) THEN
./pkg/diagnostics/diagnostics_readparms.F 443 DIAGNOSTICS_READPARMS 
           diagSt_phase(n) = stat_phase(l)
./pkg/diagnostics/diagnostics_readparms.F 444 DIAGNOSTICS_READPARMS 
         ELSEIF ( stat_freq(l) .LT. 0. ) THEN
./pkg/diagnostics/diagnostics_readparms.F 445 DIAGNOSTICS_READPARMS 
           diagSt_phase(n) = -0.5 _d 0 * stat_freq(l)
./pkg/diagnostics/diagnostics_readparms.F 447 DIAGNOSTICS_READPARMS 
         diagSt_Fname(n)  = stat_fname(l)
./pkg/diagnostics/diagnostics_readparms.F 450 DIAGNOSTICS_READPARMS 
           j = stat_region(k,l)
./pkg/diagnostics/diagnostics_readparms.F 458 DIAGNOSTICS_READPARMS 
     &        ' in list l=', l, ', stat_fname: ', stat_fname(l)
./pkg/diagnostics/diagnostics_readparms.F 470 DIAGNOSTICS_READPARMS 
     &         ' in list l=', l, ', stat_fname: ', stat_fname(l)
./pkg/diagnostics/diagnostics_readparms.F 485 DIAGNOSTICS_READPARMS 
           diagName = DIAGS_RENAMED( stat_fields(m,l), myThid )
./pkg/diagnostics/diagnostics_readparms.F 498 DIAGNOSTICS_READPARMS 
     &        ' in list l=', l, ', stat_fname: ', stat_fname(l)
./pkg/diagnostics/diagnostics_readparms.F 510 DIAGNOSTICS_READPARMS 
     &    'when trying to add stat_list l=', l
./pkg/diagnostics/diagnostics_readparms.F 513 DIAGNOSTICS_READPARMS 
     &    ' Frq=', stat_freq(l), ', stat_fname: ', stat_fname(l)
./pkg/diagnostics/diagnostics_readparms.F 586 DIAGNOSTICS_READPARMS 
         DO l=1,nlevels(n),10
./pkg/diagnostics/diagnostics_readparms.F 587 DIAGNOSTICS_READPARMS 
          m = MIN(nlevels(n),l+9)
./pkg/diagnostics/diagnostics_readparms.F 588 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(A,1P10E10.3)')' interp:  ', (levs(k,n),k=l,m)
./pkg/diagnostics/diagnostics_readparms.F 594 DIAGNOSTICS_READPARMS 
         DO l=1,nlevels(n),20
./pkg/diagnostics/diagnostics_readparms.F 595 DIAGNOSTICS_READPARMS 
          m = MIN(nlevels(n),l+19)
./pkg/diagnostics/diagnostics_readparms.F 596 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m)
./pkg/diagnostics/diagnostics_readparms.F 602 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(21A)') ' Fields:   ',(' ',flds(l,n),l=nf,m)
./pkg/diagnostics/diagnostics_readparms.F 620 DIAGNOSTICS_READPARMS 
        l = 10
./pkg/diagnostics/diagnostics_readparms.F 623 DIAGNOSTICS_READPARMS 
          l = l+3
./pkg/diagnostics/diagnostics_readparms.F 624 DIAGNOSTICS_READPARMS 
          IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j
./pkg/diagnostics/diagnostics_readparms.F 631 DIAGNOSTICS_READPARMS 
     &                 (' ',diagSt_Flds(l,n),l=nf,m)
./pkg/diagnostics/diagnostics_readparms.F 88 DIAGNOSTICS_READPARMS 
      INTEGER j,k,l,n,m,nf
./pkg/diagnostics/diagnostics_scale_fill.F 132 DIAGNOSTICS_SCALE_FILL 
           DO l=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_scale_fill.F 133 DIAGNOSTICS_SCALE_FILL 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diagnostics_scale_fill.F 134 DIAGNOSTICS_SCALE_FILL 
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_scale_fill.F 136 DIAGNOSTICS_SCALE_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_scale_fill.F 69 DIAGNOSTICS_SCALE_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_scale_fill_rs.F 132 DIAGNOSTICS_SCALE_FILL_RS 
           DO l=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_scale_fill_rs.F 133 DIAGNOSTICS_SCALE_FILL_RS 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 134 DIAGNOSTICS_SCALE_FILL_RS 
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 136 DIAGNOSTICS_SCALE_FILL_RS 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_scale_fill_rs.F 69 DIAGNOSTICS_SCALE_FILL_RS 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_set_levels.F 196 DIAGNOSTICS_SET_LEVELS 
        DO l=1,LEN(ccLine)
./pkg/diagnostics/diagnostics_set_levels.F 197 DIAGNOSTICS_SET_LEVELS 
         ccLine(l:l) = '-'
./pkg/diagnostics/diagnostics_set_levels.F 214 DIAGNOSTICS_SET_LEVELS 
         l = ILNBLNK(tdiag(n))
./pkg/diagnostics/diagnostics_set_levels.F 216 DIAGNOSTICS_SET_LEVELS 
         IF ( hdiag(n).NE.0 .AND. l.GE.1 ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 219 DIAGNOSTICS_SET_LEVELS 
     &                 udiag(n), '|', tdiag(n)(1:l)
./pkg/diagnostics/diagnostics_set_levels.F 224 DIAGNOSTICS_SET_LEVELS 
         ELSEIF (l.GE.1) THEN
./pkg/diagnostics/diagnostics_set_levels.F 227 DIAGNOSTICS_SET_LEVELS 
     &                 udiag(n), '|', tdiag(n)(1:l)
./pkg/diagnostics/diagnostics_set_levels.F 245 DIAGNOSTICS_SET_LEVELS 
        DO l = 1,n-1
./pkg/diagnostics/diagnostics_set_levels.F 246 DIAGNOSTICS_SET_LEVELS 
         IF ( cdiag(l).EQ.cdiag(n) ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 251 DIAGNOSTICS_SET_LEVELS 
     &       '1rst (l=', l, ' ), title= ',tdiag(l)
./pkg/diagnostics/diagnostics_set_levels.F 63 DIAGNOSTICS_SET_LEVELS 
      INTEGER l, n, ncount
./pkg/diagnostics/diagnostics_setdiag.F 169 DIAGNOSTICS_SETDIAG 
        DO l=1,listId
./pkg/diagnostics/diagnostics_setdiag.F 170 DIAGNOSTICS_SETDIAG 
         IF (flagM .AND. freq(l) .EQ.freq(listId)
./pkg/diagnostics/diagnostics_setdiag.F 171 DIAGNOSTICS_SETDIAG 
     &             .AND. phase(l).EQ.phase(listId)
./pkg/diagnostics/diagnostics_setdiag.F 172 DIAGNOSTICS_SETDIAG 
     &             .AND. averageFreq(l) .EQ.averageFreq(listId)
./pkg/diagnostics/diagnostics_setdiag.F 173 DIAGNOSTICS_SETDIAG 
     &             .AND. averagePhase(l).EQ.averagePhase(listId)
./pkg/diagnostics/diagnostics_setdiag.F 174 DIAGNOSTICS_SETDIAG 
     &             .AND. averageCycle(l).EQ.averageCycle(listId) ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 175 DIAGNOSTICS_SETDIAG 
          DO k=1,MIN(nActive(l),numperList)
./pkg/diagnostics/diagnostics_setdiag.F 176 DIAGNOSTICS_SETDIAG 
           IF (flagM .AND. jdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagnostics_setdiag.F 177 DIAGNOSTICS_SETDIAG 
            IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 180 DIAGNOSTICS_SETDIAG 
             mdiag(mId,listId) = ABS(idiag(k,l))
./pkg/diagnostics/diagnostics_setdiag.F 49 DIAGNOSTICS_SETDIAG 
      INTEGER nn, k, l, no_hFac
./pkg/diagnostics/diagnostics_setdiag.F 85 DIAGNOSTICS_SETDIAG 
        DO l=1,listId
./pkg/diagnostics/diagnostics_setdiag.F 86 DIAGNOSTICS_SETDIAG 
         IF (flagD .AND. freq(l) .EQ. freq(listId)
./pkg/diagnostics/diagnostics_setdiag.F 87 DIAGNOSTICS_SETDIAG 
     &             .AND. phase(l).EQ.phase(listId)
./pkg/diagnostics/diagnostics_setdiag.F 88 DIAGNOSTICS_SETDIAG 
     &             .AND. averageFreq(l) .EQ.averageFreq(listId)
./pkg/diagnostics/diagnostics_setdiag.F 89 DIAGNOSTICS_SETDIAG 
     &             .AND. averagePhase(l).EQ.averagePhase(listId)
./pkg/diagnostics/diagnostics_setdiag.F 90 DIAGNOSTICS_SETDIAG 
     &             .AND. averageCycle(l).EQ.averageCycle(listId) ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 91 DIAGNOSTICS_SETDIAG 
          DO k=1,MIN(nActive(l),numperList)
./pkg/diagnostics/diagnostics_setdiag.F 92 DIAGNOSTICS_SETDIAG 
           IF ( flagD .AND. no_hFac*jdiag(k,l).GT.0 ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 93 DIAGNOSTICS_SETDIAG 
            IF ( cdiag(nn).EQ.cdiag(ABS(jdiag(k,l))) ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 96 DIAGNOSTICS_SETDIAG 
             idiag(mId,listId) = -ABS(idiag(k,l))
./pkg/diagnostics/diagnostics_setdiag.F 97 DIAGNOSTICS_SETDIAG 
             mdiag(mId,listId) = mdiag(k,l)
./pkg/diagnostics/diagnostics_summary.F 122 DIAGNOSTICS_SUMMARY 
             DO l=1,averageCycle(ld)
./pkg/diagnostics/diagnostics_summary.F 123 DIAGNOSTICS_SUMMARY 
               ii = ipt+l*kdiag(ndId)
./pkg/diagnostics/diagnostics_summary.F 124 DIAGNOSTICS_SUMMARY 
               IF (l.EQ.averageCycle(ld)) THEN
./pkg/diagnostics/diagnostics_summary.F 34 DIAGNOSTICS_SUMMARY 
      INTEGER j, k, k1, k2, l
./pkg/diagnostics/diagnostics_summary.F 77 DIAGNOSTICS_SUMMARY 
        DO l=1,LEN(ccLine)
./pkg/diagnostics/diagnostics_summary.F 78 DIAGNOSTICS_SUMMARY 
         ccLine(l:l) = '-'
./pkg/diagnostics/diagstats_set_pointers.F 151 DIAGSTATS_SET_POINTERS 
      DO l=1,diagSt_nbLists
./pkg/diagnostics/diagstats_set_pointers.F 153 DIAGSTATS_SET_POINTERS 
        IF ( diagSt_region(j,l).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 158 DIAGSTATS_SET_POINTERS 
     &       ') in list l=', l
./pkg/diagnostics/diagstats_set_pointers.F 39 DIAGSTATS_SET_POINTERS 
      INTEGER j, k, l
./pkg/diagnostics/diagstats_set_pointers.F 87 DIAGSTATS_SET_POINTERS 
           DO l=1,ld-1
./pkg/diagnostics/diagstats_set_pointers.F 89 DIAGSTATS_SET_POINTERS 
            DO k=1,diagSt_nbActv(l)
./pkg/diagnostics/diagstats_set_pointers.F 90 DIAGSTATS_SET_POINTERS 
              IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE.
./pkg/diagnostics/diagstats_set_pointers.F 95 DIAGSTATS_SET_POINTERS 
     &                 .OR. (diagSt_region(j,l).LT.diagSt_region(j,ld))
./pkg/diagnostics/diagstats_setdiag.F 111 DIAGSTATS_SETDIAG 
        DO l=1,listId
./pkg/diagnostics/diagstats_setdiag.F 112 DIAGSTATS_SETDIAG 
         IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId)
./pkg/diagnostics/diagstats_setdiag.F 113 DIAGSTATS_SETDIAG 
     &            .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN
./pkg/diagnostics/diagstats_setdiag.F 114 DIAGSTATS_SETDIAG 
          DO k=1,MIN(diagSt_nbActv(l),numperlist)
./pkg/diagnostics/diagstats_setdiag.F 115 DIAGSTATS_SETDIAG 
           IF (flag .AND. jSdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagstats_setdiag.F 116 DIAGSTATS_SETDIAG 
            IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN
./pkg/diagnostics/diagstats_setdiag.F 119 DIAGSTATS_SETDIAG 
             mSdiag(mId,listId) = ABS(iSdiag(k,l))
./pkg/diagnostics/diagstats_setdiag.F 49 DIAGSTATS_SETDIAG 
      INTEGER k, l
./pkg/diagnostics/diagstats_setdiag.F 66 DIAGSTATS_SETDIAG 
      DO l=1,listId
./pkg/diagnostics/diagstats_setdiag.F 67 DIAGSTATS_SETDIAG 
       IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId)
./pkg/diagnostics/diagstats_setdiag.F 68 DIAGSTATS_SETDIAG 
     &          .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN
./pkg/diagnostics/diagstats_setdiag.F 69 DIAGSTATS_SETDIAG 
        DO k=1,MIN(diagSt_nbActv(l),numperlist)
./pkg/diagnostics/diagstats_setdiag.F 70 DIAGSTATS_SETDIAG 
         IF (flag .AND. jSdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagstats_setdiag.F 71 DIAGSTATS_SETDIAG 
          IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN
./pkg/diagnostics/diagstats_setdiag.F 74 DIAGSTATS_SETDIAG 
           iSdiag(mId,listId) = -ABS(iSdiag(k,l))
./pkg/diagnostics/diagstats_setdiag.F 75 DIAGSTATS_SETDIAG 
           mSdiag(mId,listId) = mSdiag(k,l)