Symbol Description Uses
hFacCtmp 60


File Line number Procedure Code
./model/src/ini_masks_etc.F 110 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K)
./model/src/ini_masks_etc.F 112 INI_MASKS_ETC 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 114 INI_MASKS_ETC 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 116 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./model/src/ini_masks_etc.F 117 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./model/src/ini_masks_etc.F 123 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 137 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K)
./model/src/ini_masks_etc.F 139 INI_MASKS_ETC 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 141 INI_MASKS_ETC 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 143 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./model/src/ini_masks_etc.F 144 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./model/src/ini_masks_etc.F 150 INI_MASKS_ETC 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 56 INI_MASKS_ETC 
      _RL hFacCtmp
./model/src/ini_masks_etc.F 70 INI_MASKS_ETC 
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)
./model/src/ini_masks_etc.F 72 INI_MASKS_ETC 
           hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0)
./model/src/ini_masks_etc.F 74 INI_MASKS_ETC 
           IF (hFacCtmp.LT.hFacMnSz) THEN
./model/src/ini_masks_etc.F 75 INI_MASKS_ETC 
            IF (hFacCtmp.LT.hFacMnSz*0.5) THEN
./model/src/ini_masks_etc.F 81 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
./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
./model/src/update_masks_etc.F 101 UPDATE_MASKS_ETC 
           ELSEIF ( hFacCtmp .gt. 1. _d 0 ) THEN
./model/src/update_masks_etc.F 104 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*(
./model/src/update_masks_etc.F 105 UPDATE_MASKS_ETC 
     &           EXP(-hFacCtmp/hFacMnSz)-EXP(-1./hFacMnSz) )
./model/src/update_masks_etc.F 68 UPDATE_MASKS_ETC 
      _RL hFacCtmp, hFacCtmp2
./model/src/update_masks_etc.F 85 UPDATE_MASKS_ETC 
           hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K)
./model/src/update_masks_etc.F 87 UPDATE_MASKS_ETC 
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)
./model/src/update_masks_etc.F 98 UPDATE_MASKS_ETC 
           IF ( hFacCtmp .le. 0. _d 0 ) THEN