Index: LMDZ4/trunk/libf/phylmd/interface_surf.F90
===================================================================
--- LMDZ4/trunk/libf/phylmd/interface_surf.F90	(revision 719)
+++ LMDZ4/trunk/libf/phylmd/interface_surf.F90	(revision 729)
@@ -295,13 +295,4 @@
 !      call abort_gcm(modname,abort_message,1)
 !    endif
-  endif
-  first_call = .false.
-  
-! Initialisations diverses
-!
-!!$  cal=0.; beta=1.; dif_grnd=0.; capsol=0.
-!!$  alb_new = 0.; z0_new = 0.; alb_neig = 0.0
-!!$! PB
-!!$  tsurf_new = 0.
 
 !IM cf JLD
@@ -377,4 +368,14 @@
      tmp_tslab(i)=tslab(i)
     ENDDO
+  endif
+  first_call = .false.
+  
+! Initialisations diverses
+!
+!!$  cal=0.; beta=1.; dif_grnd=0.; capsol=0.
+!!$  alb_new = 0.; z0_new = 0.; alb_neig = 0.0
+!!$! PB
+!!$  tsurf_new = 0.
+
 !
 ! Aiguillage vers les differents schemas de surface