Symbol Description Uses
pisvel 10



File Line number Procedure Code
./pkg/dic/dic_fields_load.F 152 DIC_FIELDS_LOAD
           pisvel(i,j,bi,bj)  =0.337*wind(i,j,bi,bj)**2/3.6d5    !QQQQ
./pkg/dic/dic_surfforcing.F 144 DIC_SURFFORCING
     &             pisvel(i,j,bi,bj)
./pkg/dic/DIC_ABIOTIC.h 11 NO PROCEDURE
     &              pisvel,fice,Silica
./pkg/dic/DIC_ABIOTIC.h 17 NO PROCEDURE
      _RL  pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/dic/o2_surfforcing.F 89 O2_SURFFORCING
     &             pisvel(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 75 CFC12_SURFFORCING
              Kwexch(i,j) = (1.0 - fice(i,j,bi,bj))*pisvel(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 75 CFC11_SURFFORCING
              Kwexch(i,j) = (1.0 - fice(i,j,bi,bj))*pisvel(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 142 CFC_FIELDS_LOAD
           pisvel(i,j,bi,bj)  =(0.31*wind(i,j,bi,bj)**2)/3.6e5
./pkg/cfc/CFC.h 11 NO PROCEDURE
      _RL  pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/cfc/CFC.h 7 NO PROCEDURE
     &              pisvel,fice