Symbol Description Uses
iLa layer coordinate index 145


File Line number Procedure Code
./pkg/layers/layers_calc.F 101 LAYERS_CALC 
        CALL LAYERS_DIAPYCNAL( theta,iLa,
./pkg/layers/layers_calc.F 108 LAYERS_CALC 
       ELSEIF ( layers_num(iLa) .EQ. 2 ) THEN
./pkg/layers/layers_calc.F 109 LAYERS_CALC 
        CALL LAYERS_FLUXCALC( uVel,vVel,salt,iLa,
./pkg/layers/layers_calc.F 116 LAYERS_CALC 
        CALL LAYERS_DIAPYCNAL( salt,iLa,
./pkg/layers/layers_calc.F 123 LAYERS_CALC 
       ELSEIF ( layers_num(iLa) .EQ. 3 ) THEN
./pkg/layers/layers_calc.F 131 LAYERS_CALC 
     &                       layers_krho(iLa),
./pkg/layers/layers_calc.F 144 LAYERS_CALC 
        CALL LAYERS_FLUXCALC( uVel,vVel, prho, iLa,
./pkg/layers/layers_calc.F 151 LAYERS_CALC 
        CALL LAYERS_DIAPYCNAL( prho,iLa,
./pkg/layers/layers_calc.F 164 LAYERS_CALC 
     &    .AND. layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_calc.F 167 LAYERS_CALC 
          WRITE(suff,'(I2.2,A1,I10.10)') iLa, '.', myIter
./pkg/layers/layers_calc.F 242 LAYERS_CALC 
       IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_calc.F 245 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaUH',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 249 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaHw',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 252 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaPw',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 255 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaUa',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 262 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaVH',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 266 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaHs',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 269 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaPs',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 272 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaVa',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 280 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaHc',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 284 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaPc',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 288 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaTs',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 292 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaTh',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 296 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaTr',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 300 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaSs',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 304 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaSh',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 308 LAYERS_CALC 
         WRITE(diagName,'(A4,I1,A3)') 'LaSr',iLa,layers_name(iLa)
./pkg/layers/layers_calc.F 322 LAYERS_CALC 
       IF ( layers_taveFreq.GT.0. .AND. iLa.EQ.1 ) THEN
./pkg/layers/layers_calc.F 345 LAYERS_CALC 
          IF ( layers_num(iLa) .EQ. 3 )
./pkg/layers/layers_calc.F 55 LAYERS_CALC 
      INTEGER bi, bj, iLa
./pkg/layers/layers_calc.F 91 LAYERS_CALC 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_calc.F 93 LAYERS_CALC 
       IF ( layers_num(iLa) .EQ. 1 ) THEN
./pkg/layers/layers_calc.F 94 LAYERS_CALC 
        CALL LAYERS_FLUXCALC( uVel,vVel,theta,iLa,
./pkg/layers/layers_check.F 26 LAYERS_CHECK 
      INTEGER iLa
./pkg/layers/layers_check.F 43 LAYERS_CHECK 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_check.F 44 LAYERS_CHECK 
      IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_check.F 46 LAYERS_CHECK 
       CALL WRITE_0D_I( layers_num(iLa), INDEX_NONE, 'layers_num =',
./pkg/layers/layers_check.F 49 LAYERS_CHECK 
       CALL WRITE_0D_C( layers_name(iLa),-1,INDEX_NONE,'layers_name =',
./pkg/layers/layers_check.F 52 LAYERS_CHECK 
      CALL WRITE_0D_L ( layers_bolus(iLa), INDEX_NONE,
./pkg/layers/layers_check.F 55 LAYERS_CHECK 
       IF ( layers_num(iLa).EQ.3)
./pkg/layers/layers_check.F 56 LAYERS_CHECK 
     &  CALL WRITE_0D_I( layers_krho(iLa), INDEX_NONE, 'layers_krho =',
./pkg/layers/layers_check.F 59 LAYERS_CHECK 
       CALL WRITE_1D_RL(layers_bounds(1,iLa),
./pkg/layers/layers_diagnostics_init.F 104 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaPw',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 113 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaPs',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 123 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaUa',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 132 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaVa',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 147 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaTs',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 156 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaTh',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 165 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaTr',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 174 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaSs',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 183 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaSh',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 192 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaSr',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 201 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaHc',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 211 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaPc',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 39 LAYERS_DIAGNOSTICS_INIT 
      INTEGER        iLa
./pkg/layers/layers_diagnostics_init.F 58 LAYERS_DIAGNOSTICS_INIT 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_diagnostics_init.F 59 LAYERS_DIAGNOSTICS_INIT 
       IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_diagnostics_init.F 64 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaUH',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 73 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaVH',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 85 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaHw',iLa,layers_name(iLa)
./pkg/layers/layers_diagnostics_init.F 94 LAYERS_DIAGNOSTICS_INIT 
        WRITE(diagName,'(A4,I1,A3)') 'LaHs',iLa,layers_name(iLa)
./pkg/layers/layers_fluxcalc.F 167 LAYERS_FLUXCALC 
     I      layers_bounds(1,iLa),Nlayers,mSteps,sNx,sNy,TatU,
./pkg/layers/layers_fluxcalc.F 199 LAYERS_FLUXCALC 
         IF ( layers_bolus(iLa)  ) THEN
./pkg/layers/layers_fluxcalc.F 19 LAYERS_FLUXCALC 
     I                  uVel,vVel,tracer,iLa,
./pkg/layers/layers_fluxcalc.F 246 LAYERS_FLUXCALC 
     I      layers_bounds(1,iLa),Nlayers,mSteps,sNx,sNy,TatV,
./pkg/layers/layers_fluxcalc.F 278 LAYERS_FLUXCALC 
         IF ( layers_bolus(iLa) ) THEN
./pkg/layers/layers_fluxcalc.F 347 LAYERS_DIAPYCNAL 
     I                  tracer,iLa,
./pkg/layers/layers_fluxcalc.F 380 LAYERS_DIAPYCNAL 
      INTEGER iLa, myThid
./pkg/layers/layers_fluxcalc.F 463 LAYERS_DIAPYCNAL 
     I      layers_bounds(1,iLa),Nlayers,mSteps,sNx,sNy,TatC,
./pkg/layers/layers_fluxcalc.F 70 LAYERS_FLUXCALC 
      INTEGER iLa
./pkg/layers/layers_init_fixed.F 145 LAYERS_INIT_FIXED 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_init_fixed.F 146 LAYERS_INIT_FIXED 
      IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_init_fixed.F 147 LAYERS_INIT_FIXED 
      WRITE(tmpName,'(A7,I1,A3)') 'layers',iLa,layers_name(iLa)
./pkg/layers/layers_init_fixed.F 148 LAYERS_INIT_FIXED 
      CALL WRITE_GLVEC_RL( tmpName, ' ',layers_bounds(1,iLa),1+Nlayers,
./pkg/layers/layers_init_fixed.F 34 LAYERS_INIT_FIXED 
      INTEGER k,kk,kkinit,iLa
./pkg/layers/layers_output.F 48 LAYERS_OUTPUT 
      INTEGER iLa
./pkg/layers/layers_output.F 57 LAYERS_OUTPUT 
       iLa=1
./pkg/layers/layers_readparms.F 100 LAYERS_READPARMS 
          layers_num(iLa) = 0
./pkg/layers/layers_readparms.F 101 LAYERS_READPARMS 
          layers_name(iLa) = ' '
./pkg/layers/layers_readparms.F 102 LAYERS_READPARMS 
          layers_krho(iLa) = 1
./pkg/layers/layers_readparms.F 103 LAYERS_READPARMS 
          layers_bolus(iLa) = useGMRedi
./pkg/layers/layers_readparms.F 105 LAYERS_READPARMS 
            layers_bounds(k,iLa) = UNSET_RL
./pkg/layers/layers_readparms.F 111 LAYERS_READPARMS 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_readparms.F 112 LAYERS_READPARMS 
        IF ( ( layers_name(iLa).EQ.'TH' ).OR.
./pkg/layers/layers_readparms.F 113 LAYERS_READPARMS 
     &       ( layers_num(iLa).EQ.1 ) ) THEN
./pkg/layers/layers_readparms.F 114 LAYERS_READPARMS 
          layers_name(iLa)='TH'
./pkg/layers/layers_readparms.F 115 LAYERS_READPARMS 
          layers_num(iLa)=1
./pkg/layers/layers_readparms.F 116 LAYERS_READPARMS 
        ELSEIF ( ( layers_name(iLa).EQ.'SLT' ).OR.
./pkg/layers/layers_readparms.F 117 LAYERS_READPARMS 
     &       ( layers_num(iLa).EQ.2 ) ) THEN
./pkg/layers/layers_readparms.F 118 LAYERS_READPARMS 
          layers_name(iLa)='SLT'
./pkg/layers/layers_readparms.F 119 LAYERS_READPARMS 
          layers_num(iLa)=2
./pkg/layers/layers_readparms.F 120 LAYERS_READPARMS 
        ELSEIF ( ( layers_name(iLa).EQ.'RHO' ).OR.
./pkg/layers/layers_readparms.F 121 LAYERS_READPARMS 
     &       ( layers_num(iLa).EQ.3 ) ) THEN
./pkg/layers/layers_readparms.F 122 LAYERS_READPARMS 
          layers_name(iLa)='RHO'
./pkg/layers/layers_readparms.F 123 LAYERS_READPARMS 
          layers_num(iLa)=3
./pkg/layers/layers_readparms.F 125 LAYERS_READPARMS 
          layers_name(iLa)=' '
./pkg/layers/layers_readparms.F 126 LAYERS_READPARMS 
          layers_num(iLa)=0
./pkg/layers/layers_readparms.F 129 LAYERS_READPARMS 
        layers_bolus(iLa) = layers_bolus(iLa) .AND. useGMRedi
./pkg/layers/layers_readparms.F 133 LAYERS_READPARMS 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_readparms.F 134 LAYERS_READPARMS 
       IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_readparms.F 136 LAYERS_READPARMS 
         IF ( layers_bounds(k,iLa) .EQ. UNSET_RL ) THEN
./pkg/layers/layers_readparms.F 144 LAYERS_READPARMS 
         ELSEIF ( layers_bounds(k,iLa) .LE.
./pkg/layers/layers_readparms.F 145 LAYERS_READPARMS 
     &            layers_bounds(k-1,iLa) ) THEN
./pkg/layers/layers_readparms.F 28 LAYERS_READPARMS 
      INTEGER iUnit, k, iLa
./pkg/layers/layers_readparms.F 53 LAYERS_READPARMS 
      DO iLa=1,layers_maxNum
./pkg/layers/layers_readparms.F 54 LAYERS_READPARMS 
        layers_name(iLa) = ' '
./pkg/layers/layers_readparms.F 55 LAYERS_READPARMS 
        layers_num(iLa) = 0
./pkg/layers/layers_readparms.F 56 LAYERS_READPARMS 
        layers_krho(iLa)= 1
./pkg/layers/layers_readparms.F 57 LAYERS_READPARMS 
        layers_bolus(iLa) = useGMRedi
./pkg/layers/layers_readparms.F 59 LAYERS_READPARMS 
          layers_bounds(k,iLa) = UNSET_RL
./pkg/layers/layers_readparms.F 99 LAYERS_READPARMS 
        DO iLa=2,layers_maxNum