--- trunk/Sources/phylmd/coefkz.f 2018/01/05 16:40:13 248 +++ trunk/Sources/phylmd/coefkz.f 2018/01/05 17:15:05 249 @@ -4,8 +4,8 @@ contains - SUBROUTINE coefkz(nsrf, paprs, pplay, ksta, ksta_ter, ts, u, v, t, q, & - zgeop, coefm, coefh) + SUBROUTINE coefkz(nsrf, paprs, pplay, ksta, ksta_ter, ts, u, v, t, q, zgeop, & + coefm, coefh) ! Authors: F. Hourdin, M. Forichon, Z. X. Li (LMD/CNRS) ! Date: September 22nd, 1993