Index: /trunk/LMDZ.MARS/changelog.txt
===================================================================
--- /trunk/LMDZ.MARS/changelog.txt	(revision 3215)
+++ /trunk/LMDZ.MARS/changelog.txt	(revision 3216)
@@ -4490,2 +4490,5 @@
 == 12/02/2024 == JBC
 Correction of a bug in "writediagsoil.F90": the case of using the 1D model with parallelization was not anticipated so that the "diagsoil.nc" file was filled with meaningless data.
+
+== 13/02/2024 == EM
+Fix start2archive; routine surfini is now in module surfini_mod.
Index: /trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F
===================================================================
--- /trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F	(revision 3215)
+++ /trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F	(revision 3216)
@@ -37,4 +37,5 @@
      &                        subslope_dist
       USE comcstfi_h, only: pi
+      use surfini_mod, only: surfini
       implicit none
 
@@ -213,5 +214,5 @@
        ENDIF
 
-         CALL surfini(ngridmx,qsurf)
+         CALL surfini(ngridmx,nslope,qsurf)
 
       ierr = NF_CLOSE(nid1)