Symbol Description Uses
D1I 6



File Line number Procedure Code
./pkg/seaice/seaice_solve4temp.F 190 SEAICE_SOLVE4TEMP
      D1I=SEAICE_dalton*lhSublim*SEAICE_rhoAir
./pkg/seaice/seaice_solve4temp.F 401 SEAICE_SOLVE4TEMP
          F_lh(I,J)   = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 417 SEAICE_SOLVE4TEMP
     &                  + D1I*UG(I,J)*dqh_dTs(I,J)
./pkg/seaice/seaice_solve4temp.F 504 SEAICE_SOLVE4TEMP
          F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 522 SEAICE_SOLVE4TEMP
     &              + D1I*UG(I,J)*dqh_dTs(I,J)*delTsurf
./pkg/seaice/seaice_solve4temp.F 97 SEAICE_SOLVE4TEMP
      _RL D1, D1I