Symbol Description Uses
CwatC drag coefficients 10


File Line number Procedure Code
./pkg/seaice/seaice_oceandrag_coeffs.F 100 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR)
./pkg/seaice/seaice_oceandrag_coeffs.F 104 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.
./pkg/seaice/seaice_oceandrag_coeffs.F 106 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.25 _d 0
./pkg/seaice/seaice_oceandrag_coeffs.F 108 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR)
./pkg/seaice/seaice_oceandrag_coeffs.F 111 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 14 SEAICE_OCEANDRAG_COEFFS 
     O     CwatC,
./pkg/seaice/seaice_oceandrag_coeffs.F 57 SEAICE_OCEANDRAG_COEFFS 
      _RL CwatC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_oceandrag_coeffs.F 95 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.
./pkg/seaice/seaice_oceandrag_coeffs.F 98 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.25 _d 0