Symbol Description Uses
d Donnor/Receiver indices 157


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 736 CHPPRM 
      _RL scat,d
./pkg/fizhi/fizhi_utils.F 887 CHPPRM 
      d       = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm
./pkg/fizhi/fizhi_utils.F 888 CHPPRM 
      ufac(i) = log( (vgz2(ityp(i)) - d) / zoch(i) )
./pkg/openad/openad_dumpAdjoint.F 103 OPENAD_DUMPADJOINT 
         foo5=thetad
./pkg/openad/openad_dumpAdjoint.F 105 OPENAD_DUMPADJOINT 
         foo5=saltd
./pkg/openad/openad_dumpAdjoint.F 107 OPENAD_DUMPADJOINT 
         foo5=uveld
./pkg/openad/openad_dumpAdjoint.F 109 OPENAD_DUMPADJOINT 
         foo5=vveld
./pkg/openad/openad_dumpAdjoint.F 111 OPENAD_DUMPADJOINT 
         foo5=wveld
./pkg/openad/openad_dumpAdjoint.F 113 OPENAD_DUMPADJOINT 
         foo4=etand
./pkg/openad/openad_dumpAdjoint.F 117 OPENAD_DUMPADJOINT 
         foo5=diffkrd
./pkg/openad/openad_dumpAdjoint.F 121 OPENAD_DUMPADJOINT 
         foo4=qnetd
./pkg/openad/openad_dumpAdjoint.F 125 OPENAD_DUMPADJOINT 
         foo4=empmrd
./pkg/openad/openad_dumpAdjoint.F 129 OPENAD_DUMPADJOINT 
         foo4=fud
./pkg/openad/openad_dumpAdjoint.F 133 OPENAD_DUMPADJOINT 
         foo4=fvd
./pkg/openad/openad_dumpAdjoint.F 137 OPENAD_DUMPADJOINT 
         foo4=qnetmd
./pkg/openad/the_model_main.F 450 THE_MODEL_MAIN 
        fcd=1.0
./pkg/openad/the_model_main.F 471 THE_MODEL_MAIN 
     +xx_salt(i1,i2,i3,i4,i5)d,'/',xx_theta(i1,i2,i3,i4,i5)d
./pkg/openad/the_model_main.F 484 THE_MODEL_MAIN 
      foo=xx_thetad
./pkg/openad/the_model_main.F 491 THE_MODEL_MAIN 
      foo=xx_saltd
./pkg/openad/the_model_main.F 498 THE_MODEL_MAIN 
      foo=diffkrd
./pkg/openad/the_model_main.F 505 THE_MODEL_MAIN 
      foo2D=fud
./pkg/openad/the_model_main.F 512 THE_MODEL_MAIN 
      foo2D=fvd
./pkg/openad/the_model_main.F 519 THE_MODEL_MAIN 
      foo2D=qnetd
./pkg/openad/the_model_main.F 526 THE_MODEL_MAIN 
      foo2D=empmrd
./pkg/openad/the_model_main.F 533 THE_MODEL_MAIN 
      foo2D=xx_hfluxmd
./pkg/openad/the_model_main.F 540 THE_MODEL_MAIN 
      foo2D=etand
./pkg/openad/the_model_main.F 548 THE_MODEL_MAIN 
        foo2d=xx_genarr2d(:,:,:,:,ik)d
./pkg/openad/the_model_main.F 556 THE_MODEL_MAIN 
        foo=xx_genarr3d(:,:,:,:,:,ik)d
./pkg/openad/the_model_main.F 563 THE_MODEL_MAIN 
        foo2d=xx_gentim2d(:,:,:,:,ik)d
./pkg/opps/opps_interface.F 129 OPPS_INTERFACE 
          tMax = -1. d 23
./pkg/opps/opps_interface.F 130 OPPS_INTERFACE 
          tMin =  1. d 23
./pkg/opps/opps_interface.F 131 OPPS_INTERFACE 
          sMax = -1. d 23
./pkg/opps/opps_interface.F 132 OPPS_INTERFACE 
          sMin =  1. d 23
./pkg/opps/opps_interface.F 149 OPPS_INTERFACE 
          tMaxNew = -1. d 23
./pkg/opps/opps_interface.F 150 OPPS_INTERFACE 
          tMinNew =  1. d 23
./pkg/opps/opps_interface.F 151 OPPS_INTERFACE 
          sMaxNew = -1. d 23
./pkg/opps/opps_interface.F 152 OPPS_INTERFACE 
          sMinNew =  1. d 23
./pkg/ptracers/PTRACERS_MOD.h 25 NO PROCEDURE 
        PtrISt(g)som_P(a,b,c,d,e,f)
./optim/optim_readdata.F 382 OPTIM_READDATA 
       ff = 0. d 0
./pkg/bbl/bbl_calc_rhs.F 162 BBL_CALC_RHS 
            d = j
./pkg/bbl/bbl_calc_rhs.F 165 BBL_CALC_RHS 
            d = j + 1
./pkg/bbl/bbl_calc_rhs.F 170 BBL_CALC_RHS 
           thk_d = drF(kLowC(i,d,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 171 BBL_CALC_RHS 
     &          hFacC(i,d,kLowC(i,d,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 172 BBL_CALC_RHS 
           IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 173 BBL_CALC_RHS 
     &          ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 174 BBL_CALC_RHS 
     &          ( bbl_eta  (i,d,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 175 BBL_CALC_RHS 
     &          bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 182 BBL_CALC_RHS 
           bblTheta_d = bbl_theta(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 184 BBL_CALC_RHS 
           bblSalt_d  = bbl_salt (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 186 BBL_CALC_RHS 
           bblEta_d   = bbl_eta  (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 193 BBL_CALC_RHS 
           dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 199 BBL_CALC_RHS 
           bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 200 BBL_CALC_RHS 
     &                                bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 206 BBL_CALC_RHS 
           bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 207 BBL_CALC_RHS 
     &                               bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 212 BBL_CALC_RHS 
           bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 213 BBL_CALC_RHS 
           IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 214 BBL_CALC_RHS 
            bbl_eta(i,d,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 215 BBL_CALC_RHS 
            bbl_theta(i,d,bi,bj) = tLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 216 BBL_CALC_RHS 
            bbl_salt (i,d,bi,bj) = sLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 264 BBL_CALC_RHS 
             d = j
./pkg/bbl/bbl_calc_rhs.F 267 BBL_CALC_RHS 
             d = j + 1
./pkg/bbl/bbl_calc_rhs.F 272 BBL_CALC_RHS 
            thk_d = drF(kLowC(i,d,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 273 BBL_CALC_RHS 
     &              hFacC(i,d,kLowC(i,d,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 274 BBL_CALC_RHS 
            IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 275 BBL_CALC_RHS 
     &           ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 276 BBL_CALC_RHS 
     &           ( bbl_eta  (i,d,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 277 BBL_CALC_RHS 
     &           bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 284 BBL_CALC_RHS 
            bblTheta_d = bbl_theta(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 286 BBL_CALC_RHS 
            bblSalt_d  = bbl_salt (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 288 BBL_CALC_RHS 
            bblEta_d   = bbl_eta  (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 295 BBL_CALC_RHS 
            dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 301 BBL_CALC_RHS 
            bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 302 BBL_CALC_RHS 
     &                                 bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 308 BBL_CALC_RHS 
            bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 309 BBL_CALC_RHS 
     &                                bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 314 BBL_CALC_RHS 
            bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 315 BBL_CALC_RHS 
            IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 316 BBL_CALC_RHS 
             bbl_eta(i,d,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 317 BBL_CALC_RHS 
             bbl_theta(i,d,bi,bj) = tLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 318 BBL_CALC_RHS 
             bbl_salt (i,d,bi,bj) = sLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 367 BBL_CALC_RHS 
            d = i
./pkg/bbl/bbl_calc_rhs.F 370 BBL_CALC_RHS 
            d = i + 1
./pkg/bbl/bbl_calc_rhs.F 375 BBL_CALC_RHS 
           thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 376 BBL_CALC_RHS 
     &             hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 377 BBL_CALC_RHS 
           IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 378 BBL_CALC_RHS 
     &          ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 379 BBL_CALC_RHS 
     &          ( bbl_eta  (d,j,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 380 BBL_CALC_RHS 
     &          bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 387 BBL_CALC_RHS 
           bblTheta_d = bbl_theta(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 389 BBL_CALC_RHS 
           bblSalt_d  = bbl_salt (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 391 BBL_CALC_RHS 
           bblEta_d   = bbl_eta  (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 398 BBL_CALC_RHS 
           dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 404 BBL_CALC_RHS 
           bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 405 BBL_CALC_RHS 
     &                                bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 411 BBL_CALC_RHS 
           bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 412 BBL_CALC_RHS 
     &                               bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 417 BBL_CALC_RHS 
           bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 418 BBL_CALC_RHS 
           IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 419 BBL_CALC_RHS 
            bbl_eta(d,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 420 BBL_CALC_RHS 
            bbl_theta(d,j,bi,bj) = tLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 421 BBL_CALC_RHS 
            bbl_salt (d,j,bi,bj) = sLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 469 BBL_CALC_RHS 
             d = i
./pkg/bbl/bbl_calc_rhs.F 472 BBL_CALC_RHS 
             d = i + 1
./pkg/bbl/bbl_calc_rhs.F 477 BBL_CALC_RHS 
            thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 478 BBL_CALC_RHS 
     &              hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 479 BBL_CALC_RHS 
            IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 480 BBL_CALC_RHS 
     &           ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 481 BBL_CALC_RHS 
     &           ( bbl_eta  (d,j,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 482 BBL_CALC_RHS 
     &           bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 489 BBL_CALC_RHS 
            bblTheta_d = bbl_theta(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 491 BBL_CALC_RHS 
            bblSalt_d  = bbl_salt (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 493 BBL_CALC_RHS 
            bblEta_d   = bbl_eta  (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 500 BBL_CALC_RHS 
            dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 506 BBL_CALC_RHS 
            bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 507 BBL_CALC_RHS 
     &                                 bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 513 BBL_CALC_RHS 
            bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 514 BBL_CALC_RHS 
     &                                bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 519 BBL_CALC_RHS 
            bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 520 BBL_CALC_RHS 
            IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 521 BBL_CALC_RHS 
             bbl_eta(d,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 522 BBL_CALC_RHS 
             bbl_theta(d,j,bi,bj) = tLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 523 BBL_CALC_RHS 
             bbl_salt (d,j,bi,bj) = sLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 66 BBL_CALC_RHS 
      INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl