--- trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f 2017/02/27 15:44:55 213 +++ trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f 2017/03/22 13:40:27 214 @@ -12,7 +12,7 @@ ! Cette routine calcule les flux en h et q à l'interface et une ! température de surface. - ! L. Fairhead April 2000 + ! L. Fairhead, April 2000 USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats use nr_util, only: assert_eq