Index: trunk/LMDZ.COMMON/libf/evolution/clim_state_rec.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/clim_state_rec.F90	(revision 4147)
+++ trunk/LMDZ.COMMON/libf/evolution/clim_state_rec.F90	(revision 4157)
@@ -25,5 +25,5 @@
 ! VARIABLES
 ! ---------
-logical(k4), protected, private :: is_restartpem = .false. ! Flag to know if "restartevo.nc" exists
+logical(k4), protected, private :: is_restartevo = .false. ! Flag to know if "restartevo.nc" exists
 
 contains
@@ -271,8 +271,8 @@
 
 !=======================================================================
-SUBROUTINE create_nc_pem(nb_str_max)
+SUBROUTINE create_startevo(nb_str_max)
 !-----------------------------------------------------------------------
 ! NAME
-!     create_nc_pem
+!     create_startevo
 !
 ! DESCRIPTION
@@ -414,14 +414,14 @@
 
 ! File creation done
-is_restartpem = .true.
-
-END SUBROUTINE create_nc_pem
-!=======================================================================
-
-!=======================================================================
-SUBROUTINE write_restartpem(h2o_ice,co2_ice,tsoil,TI,icetable_depth,icetable_thickness,ice_porefilling,h2o_ads_reg,co2_ads_reg,layerings_map)
+is_restartevo = .true.
+
+END SUBROUTINE create_startevo
+!=======================================================================
+
+!=======================================================================
+SUBROUTINE write_restartevo(h2o_ice,co2_ice,tsoil,TI,icetable_depth,icetable_thickness,ice_porefilling,h2o_ads_reg,co2_ads_reg,layerings_map)
 !-----------------------------------------------------------------------
 ! NAME
-!    write_restartpem
+!    write_restartevo
 !
 ! DESCRIPTION
@@ -466,8 +466,8 @@
 ! Create the file
 nb_str_max = get_nb_str_max(layerings_map)
-call create_nc_pem(nb_str_max)
+call create_startevo(nb_str_max)
 
 call print_msg('> Writing "re'//startevo_name//'"',LVL_NFO)
-if (.not. is_restartpem) call stop_clean(__FILE__,__LINE__,'The file"'//startevo_name//'" has not been created',1)
+if (.not. is_restartevo) call stop_clean(__FILE__,__LINE__,'The file"'//startevo_name//'" has not been created',1)
 
 ! Writing time counter
@@ -510,5 +510,5 @@
 call close_nc('re'//startevo_name)
 
-END SUBROUTINE write_restartpem
+END SUBROUTINE write_restartevo
 !=======================================================================