Symbol Description Uses
pisvel 9



File Line number Procedure Code
./pkg/cfc/CFC.h 10 NO PROCEDURE
     &              pisvel,fice
./pkg/cfc/CFC.h 14 NO PROCEDURE
      _RL  pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/cfc/cfc11_surfforcing.F 78 CFC11_SURFFORCING
     &                    * pisvel(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 78 CFC12_SURFFORCING
     &                    * pisvel(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 129 CFC_FIELDS_LOAD
           pisvel(i,j,bi,bj)=(0.31 _d 0*sh(i,j,bi,bj)**2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F 151 CFC_FIELDS_LOAD
           pisvel(i,j,bi,bj)=(0.31 _d 0*wind**2)/3.6 _d 5
./pkg/dic/dic_surfforcing.F 121 DIC_SURFFORCING
              pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5
./pkg/dic/dic_surfforcing.F 122 DIC_SURFFORCING
              Kwexch_Pre(i,j,bi,bj) = pisvel(i,j)
./pkg/dic/dic_surfforcing.F 54 DIC_SURFFORCING
      _RL pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy)