!
! $Id: academic.h 1910 2013-11-29 08:40:25Z jghattas $
!
      common/academic/tetarappel,knewt_t,kfrict,knewt_g,clat4
      real :: tetarappel(ip1jmp1,llm)
      real :: knewt_t(llm)
      real :: kfrict(llm)
      real :: knewt_g
      real :: clat4(ip1jmp1)