Index: LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90	(revision 4041)
+++ LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90	(revision 4042)
@@ -1031,4 +1031,11 @@
     endif ! of if (first)
     
+    CALL pression_loc( ijnb_u, ap, bp, psi, p )
+    if (disvert_type==1) then
+       CALL exner_hyb_loc(ijnb_u,psi,p,pks,pk)
+    else ! we assume that we are in the disvert_type==2 case
+       CALL exner_milieu_loc(ijnb_u,psi,p,pks,pk)
+    endif
+
 ! -----------------------------------------------------------------
 ! Calcul niveaux pression modele 
@@ -1046,10 +1053,4 @@
         ENDDO
     ELSE
-        CALL pression_loc( ijnb_u, ap, bp, psi, p )
-        if (disvert_type==1) then
-          CALL exner_hyb_loc(ijnb_u,psi,p,pks,pk)
-        else ! we assume that we are in the disvert_type==2 case
-          CALL exner_milieu_loc(ijnb_u,psi,p,pks,pk)
-        endif
         unskap=1./kappa
 !$OMP BARRIER