Symbol Description Uses
CwatC drag coefficients 10


File Line number Procedure Code
./pkg/seaice/seaice_oceandrag_coeffs.F 101 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.25 _d 0
./pkg/seaice/seaice_oceandrag_coeffs.F 103 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR)
./pkg/seaice/seaice_oceandrag_coeffs.F 107 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.
./pkg/seaice/seaice_oceandrag_coeffs.F 109 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.25 _d 0
./pkg/seaice/seaice_oceandrag_coeffs.F 111 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR)
./pkg/seaice/seaice_oceandrag_coeffs.F 114 SEAICE_OCEANDRAG_COEFFS 
          CwatC(I,J,bi,bj) = CwatC(I,J,bi,bj) * maskC(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_oceandrag_coeffs.F 17 SEAICE_OCEANDRAG_COEFFS 
     O     CwatC,
./pkg/seaice/seaice_oceandrag_coeffs.F 60 SEAICE_OCEANDRAG_COEFFS 
      _RL CwatC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_oceandrag_coeffs.F 98 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.