Index: trunk/LMDZ.COMMON/libf/evolution/layered_deposits.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/layered_deposits.F90	(revision 4170)
+++ trunk/LMDZ.COMMON/libf/evolution/layered_deposits.F90	(revision 4174)
@@ -1255,9 +1255,9 @@
 ! ARGUMENTS
 ! ---------
-type(layering),         intent(inout) ::  this
-type(stratum), pointer, intent(inout) ::  current
-real(dp),               intent(inout) ::  d_co2ice, d_h2oice
-logical(k4),            intent(inout) ::  new_str, new_lag
-real(dp),               intent(out)   ::  zshift_surf, zlag
+real(dp),               intent(in)    :: d_co2ice, d_h2oice
+type(layering),         intent(inout) :: this
+type(stratum), pointer, intent(inout) :: current
+logical(k4),            intent(inout) :: new_str, new_lag
+real(dp),               intent(out)   :: zshift_surf, zlag
 
 ! LOCAL VARIABLES