Index: /LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/interface_surf.F90
===================================================================
--- /LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/interface_surf.F90	(revision 727)
+++ /LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/interface_surf.F90	(revision 728)
@@ -289,26 +289,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
-  ffonte(1:knon)=0.
-  fqcalving(1:knon)=0.
-
-  cal = 999999. ; beta = 999999. ; dif_grnd = 999999. ; capsol = 999999.
-  alb_new = 999999. ; z0_new = 999999. ; alb_neig = 999999.
-  tsurf_new = 999999.
-  alblw = 999999.
-
-!IM: "slab" ocean; initialisations
-  flux_o = 0.
-  flux_g = 0.
 !
     if (.not. allocated(tmp_flux_o)) then
@@ -374,4 +352,27 @@
      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.
+
+!IM cf JLD
+  ffonte(1:knon)=0.
+  fqcalving(1:knon)=0.
+
+  cal = 999999. ; beta = 999999. ; dif_grnd = 999999. ; capsol = 999999.
+  alb_new = 999999. ; z0_new = 999999. ; alb_neig = 999999.
+  tsurf_new = 999999.
+  alblw = 999999.
+
+!IM: "slab" ocean; initialisations
+  flux_o = 0.
+  flux_g = 0.
+!
 !
 ! Aiguillage vers les differents schemas de surface