#ifdef ALLOW_FRAZIL

C     FrazilForcingT : frazil temperature forcing, > 0 increases theta [W/m^2]
      _RL FrazilForcingT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /FRAZIL_FORCING/ FrazilForcingT

#endif /* ALLOW_FRAZIL */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***