Index: LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90	(revision 4679)
+++ LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90	(revision 4680)
@@ -568,5 +568,5 @@
           if (iso_eau.gt.0) then
               call iso_verif_egalite(xtpo(iso_eau,ig,ll), &
-     &          po(ig,ll),'thermcell_main 594')
+     &          p_o(ig,ll),'thermcell_main 594')
               call iso_verif_egalite(xtpdoadj(iso_eau,ig,ll), &
      &          pdoadj(ig,ll),'thermcell_main 596')