Symbol Description Uses
hFacCtmp 49


File Line number Procedure Code
./model/src/calc_gw.F 179 CALC_GW 
            hFacCtmp=max(hFacC(I,J,K-1,bi,bj)-Half,0. _d 0)
./model/src/calc_gw.F 182 CALC_GW 
            IF (hFacCtmp .GT. 0.) THEN
./model/src/calc_gw.F 183 CALC_GW 
             recip_hFacCtmp = 1./hFacCtmp
./model/src/calc_gw.F 65 CALC_GW 
      _RS  hFacCtmp
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 108 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 110 INI_MASKS_ETC 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 112 INI_MASKS_ETC 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 114 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 115 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 121 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 53 INI_MASKS_ETC 
      _RL hFacCtmp
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 68 INI_MASKS_ETC 
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 70 INI_MASKS_ETC 
           hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 72 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 73 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 79 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 113 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 115 INI_MASKS_ETC 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 117 INI_MASKS_ETC 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 119 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 120 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 126 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 57 INI_MASKS_ETC 
      _RL hFacCtmp
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 73 INI_MASKS_ETC 
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 75 INI_MASKS_ETC 
           hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 77 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 78 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 84 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 106 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K)
./model/src/ini_masks_etc.F 108 INI_MASKS_ETC 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 110 INI_MASKS_ETC 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 112 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./model/src/ini_masks_etc.F 113 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./model/src/ini_masks_etc.F 119 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 53 INI_MASKS_ETC 
      _RL hFacCtmp
./model/src/ini_masks_etc.F 66 INI_MASKS_ETC 
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)
./model/src/ini_masks_etc.F 68 INI_MASKS_ETC 
           hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0)
./model/src/ini_masks_etc.F 70 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./model/src/ini_masks_etc.F 71 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./model/src/ini_masks_etc.F 77 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp