Symbol Description Uses
hFacCtmp 34



File Line number Procedure Code
./model/src/ini_masks_etc.F 114 INI_MASKS_ETC
           hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 116 INI_MASKS_ETC
           hFacCtmp = MIN( MAX( hFacCtmp, zeroRL ) , oneRL )
./model/src/ini_masks_etc.F 118 INI_MASKS_ETC
           IF ( hFacCtmp.LT.hFacMnSz ) THEN
./model/src/ini_masks_etc.F 119 INI_MASKS_ETC
            IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN
./model/src/ini_masks_etc.F 125 INI_MASKS_ETC
             hFacC(i,j,k,bi,bj) = hFacCtmp
./model/src/ini_masks_etc.F 157 INI_MASKS_ETC
           hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 159 INI_MASKS_ETC
           hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL )
./model/src/ini_masks_etc.F 161 INI_MASKS_ETC
           hFacCtmp = MAX( hFacCtmp, zeroRL )
./model/src/ini_masks_etc.F 163 INI_MASKS_ETC
           IF ( hFacCtmp.LT.hFacMnSz ) THEN
./model/src/ini_masks_etc.F 164 INI_MASKS_ETC
            IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN
./model/src/ini_masks_etc.F 170 INI_MASKS_ETC
             hFacC(i,j,k,bi,bj) = hFacCtmp
./model/src/ini_masks_etc.F 286 INI_MASKS_ETC
            hFacCtmp = MIN( hFac1tmp, oneRL )
./model/src/ini_masks_etc.F 289 INI_MASKS_ETC
            IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN
./model/src/ini_masks_etc.F 292 INI_MASKS_ETC
              hFac1tmp = MAX( hFacCtmp, hFacMnSz )
./model/src/ini_masks_etc.F 297 INI_MASKS_ETC
            hFacCtmp = hFac1tmp - MAX( hFac2tmp, zeroRL )
./model/src/ini_masks_etc.F 299 INI_MASKS_ETC
            IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN
./model/src/ini_masks_etc.F 302 INI_MASKS_ETC
              hFacW(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz )
./model/src/ini_masks_etc.F 310 INI_MASKS_ETC
            hFacCtmp = MIN( hFac1tmp, oneRL )
./model/src/ini_masks_etc.F 313 INI_MASKS_ETC
            IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN
./model/src/ini_masks_etc.F 316 INI_MASKS_ETC
              hFac1tmp = MAX( hFacCtmp, hFacMnSz )
./model/src/ini_masks_etc.F 321 INI_MASKS_ETC
            hFacCtmp = hFac1tmp - MAX( hFac2tmp, zeroRL )
./model/src/ini_masks_etc.F 323 INI_MASKS_ETC
            IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN
./model/src/ini_masks_etc.F 326 INI_MASKS_ETC
              hFacS(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz )
./model/src/ini_masks_etc.F 49 INI_MASKS_ETC
      _RL hFacMnSz, hFacCtmp
./model/src/update_masks_etc.F 103 UPDATE_MASKS_ETC
           IF ( hFacCtmp .LE. 0. _d 0 ) THEN
./model/src/update_masks_etc.F 106 UPDATE_MASKS_ETC
           ELSEIF ( hFacCtmp .GT. 1. _d 0 ) THEN
./model/src/update_masks_etc.F 109 UPDATE_MASKS_ETC
            hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*(
./model/src/update_masks_etc.F 110 UPDATE_MASKS_ETC
     &           EXP(-hFacCtmp/hFacMnSz)-EXP(-1./hFacMnSz) )
./model/src/update_masks_etc.F 75 UPDATE_MASKS_ETC
      _RL hFacCtmp, hFacCtmp2
./model/src/update_masks_etc.F 90 UPDATE_MASKS_ETC
           hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K)
./model/src/update_masks_etc.F 92 UPDATE_MASKS_ETC
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)