! ! $Id: academic.h 1999 2014-03-20 09:57:19Z idelkadi $ ! 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)