Index: trunk/LMDZ.COMMON/libf/evolution/info_run_PEM.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/info_run_PEM.F90	(revision 2886)
+++ trunk/LMDZ.COMMON/libf/evolution/info_run_PEM.F90	(revision 2886)
@@ -0,0 +1,14 @@
+SUBROUTINE info_run_PEM(year_iter, criterion_stop)
+
+      IMPLICIT NONE
+
+  INTEGER, intent(in) :: year_iter, criterion_stop                  ! # of year and reason to stop
+
+ open(1,file='info_run_PEM.txt', status='new')
+
+ write(1,*)  year_iter, criterion_stop
+
+ close(1)
+
+
+END SUBROUTINE info_run_PEM