Index: /LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
===================================================================
--- /LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h	(revision 5391)
+++ /LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h	(revision 5392)
@@ -983,5 +983,5 @@
 
       RETURN
-      END
+      END SUBROUTINE gr_fi_dyn
 
       REAL FUNCTION fq_sat(kelvin, millibar)
@@ -1043,5 +1043,5 @@
 !
       RETURN
-      END SUBROUTINE gr_fi_dyn
+      END FUNCTION fq_sat
 
       SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)