Symbol Description Uses
hFacUpper 16



File Line number Procedure Code
./model/src/ini_masks_etc.F 378 INI_MASKS_ETC
         hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./model/src/ini_masks_etc.F 379 INI_MASKS_ETC
         IF (Km1.EQ.K) hFacUpper=0.
./model/src/ini_masks_etc.F 386 INI_MASKS_ETC
     &         hFacUpper+hFacLower*hFacC(I,J,K,bi,bj)
./model/src/ini_masks_etc.F 54 INI_MASKS_ETC
      _RL hFacUpper,hFacLower
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 363 INI_MASKS_ETC
         hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 364 INI_MASKS_ETC
         IF (Km1.EQ.K) hFacUpper=0.
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 371 INI_MASKS_ETC
     &         hFacUpper+hFacLower*hFacC(I,J,K,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 55 INI_MASKS_ETC
      _RL hFacUpper,hFacLower
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 354 INI_MASKS_ETC
         hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 355 INI_MASKS_ETC
         IF (Km1.EQ.K) hFacUpper=0.
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 362 INI_MASKS_ETC
     &         hFacUpper+hFacLower*hFacC(I,J,K,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 51 INI_MASKS_ETC
      _RL hFacUpper,hFacLower
./model/src/update_masks_etc.F 378 UPDATE_MASKS_ETC
            hFacUpper=0.
./model/src/update_masks_etc.F 380 UPDATE_MASKS_ETC
            hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./model/src/update_masks_etc.F 391 UPDATE_MASKS_ETC
     &         hFacUpper+hFacLower*hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 58 UPDATE_MASKS_ETC
      _RL hFacUpper,hFacLower