Index: /LMDZ5/trunk/libf/dyn3d/guide_mod.F90
===================================================================
--- /LMDZ5/trunk/libf/dyn3d/guide_mod.F90	(revision 1901)
+++ /LMDZ5/trunk/libf/dyn3d/guide_mod.F90	(revision 1902)
@@ -143,14 +143,44 @@
     ncidpl=-99
     if (guide_modele) then
-       if (ncidpl.eq.-99) rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier apbp.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     else
          if (guide_u) then
-           if (ncidpl.eq.-99) rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  print *,'Guide: probleme -> pas de fichier u.nc'
+                  CALL abort_gcm(modname,abort_message,1)
+               endif
+           endif
          elseif (guide_v) then
-           if (ncidpl.eq.-99) rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  print *,'Guide: probleme -> pas de fichier v.nc'
+                  CALL abort_gcm(modname,abort_message,1)
+               endif
+           endif
          elseif (guide_T) then
-           if (ncidpl.eq.-99) rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  print *,'Guide: probleme -> pas de fichier T.nc'
+                  CALL abort_gcm(modname,abort_message,1)
+               endif
+           endif
          elseif (guide_Q) then
-           if (ncidpl.eq.-99) rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  print *,'Guide: probleme -> pas de fichier hur.nc'
+                  CALL abort_gcm(modname,abort_message,1)
+               endif
+           endif
          endif
     endif 
@@ -990,4 +1020,6 @@
     INTEGER               :: status,rcode
 
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read'
 ! -----------------------------------------------------------------
 ! Premier appel: initialisation de la lecture des fichiers
@@ -998,8 +1030,20 @@
 ! Niveaux de pression si non constants
          if (guide_modele) then
-             print *,'Lecture du guidage sur niveaux mod�le'
+             print *,'Lecture du guidage sur niveaux modele'
              rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidpl,varidap',ncidpl,varidap
          endif
@@ -1007,5 +1051,13 @@
          if (guide_u) then
              rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidu,varidu',ncidu,varidu
              if (ncidpl.eq.-99) ncidpl=ncidu
@@ -1014,5 +1066,13 @@
          if (guide_v) then
              rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidv,varidv',ncidv,varidv
              if (ncidpl.eq.-99) ncidpl=ncidv
@@ -1021,5 +1081,13 @@
          if (guide_T) then
              rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidT,varidT',ncidt,varidt
              if (ncidpl.eq.-99) ncidpl=ncidt
@@ -1028,5 +1096,13 @@
          if (guide_Q) then
              rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidQ,varidQ',ncidQ,varidQ
              if (ncidpl.eq.-99) ncidpl=ncidQ
@@ -1035,5 +1111,13 @@
          if ((guide_P).OR.(guide_modele)) then
              rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidps,varidps',ncidps,varidps
          endif
@@ -1173,4 +1257,6 @@
     INTEGER               :: i
 
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read2D'
 ! -----------------------------------------------------------------
 ! Premier appel: initialisation de la lecture des fichiers
@@ -1181,8 +1267,20 @@
 ! Niveaux de pression si non constants
          if (guide_modele) then
-             print *,'Lecture du guidage sur niveaux mod�le'
+             print *,'Lecture du guidage sur niveaux modele'
              rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidpl,varidap',ncidpl,varidap
          endif
@@ -1190,5 +1288,13 @@
          if (guide_u) then
              rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidu,varidu',ncidu,varidu
              if (ncidpl.eq.-99) ncidpl=ncidu
@@ -1197,5 +1303,13 @@
          if (guide_v) then
              rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidv,varidv',ncidv,varidv
              if (ncidpl.eq.-99) ncidpl=ncidv
@@ -1204,5 +1318,13 @@
          if (guide_T) then
              rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidT,varidT',ncidt,varidt
              if (ncidpl.eq.-99) ncidpl=ncidt
@@ -1211,5 +1333,13 @@
          if (guide_Q) then
              rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidQ,varidQ',ncidQ,varidQ
              if (ncidpl.eq.-99) ncidpl=ncidQ
@@ -1218,5 +1348,13 @@
          if ((guide_P).OR.(guide_modele)) then
              rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidps,varidps',ncidps,varidps
          endif
Index: /LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90
===================================================================
--- /LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90	(revision 1901)
+++ /LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90	(revision 1902)
@@ -156,15 +156,51 @@
     ncidpl=-99
     if (guide_plevs.EQ.1) then
-       if (ncidpl.eq.-99) rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier apbp.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_plevs.EQ.2) then
-       if (ncidpl.EQ.-99) rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
+       if (ncidpl.EQ.-99) then
+          rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier P.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_u) then
-       if (ncidpl.eq.-99) rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier u.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_v) then
-       if (ncidpl.eq.-99) rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier v.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_T) then
-       if (ncidpl.eq.-99) rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier T.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_Q) then
-       if (ncidpl.eq.-99) rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier hur.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     endif 
     error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
@@ -1542,6 +1578,18 @@
              print *,'Lecture du guidage sur niveaux modele'
              rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidpl,varidap',ncidpl,varidap
          endif
@@ -1549,5 +1597,13 @@
          if (guide_plevs.EQ.2) then
              rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidp,varidp',ncidp,varidp
              if (ncidpl.eq.-99) ncidpl=ncidp
@@ -1556,5 +1612,13 @@
          if (guide_u) then
              rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidu,varidu',ncidu,varidu
              if (ncidpl.eq.-99) ncidpl=ncidu
@@ -1563,5 +1627,13 @@
          if (guide_v) then
              rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidv,varidv',ncidv,varidv
              if (ncidpl.eq.-99) ncidpl=ncidv
@@ -1570,5 +1642,13 @@
          if (guide_T) then
              rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidT,varidT',ncidt,varidt
              if (ncidpl.eq.-99) ncidpl=ncidt
@@ -1577,5 +1657,13 @@
          if (guide_Q) then
              rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidQ,varidQ',ncidQ,varidQ
              if (ncidpl.eq.-99) ncidpl=ncidQ
@@ -1584,5 +1672,13 @@
          if ((guide_P).OR.(guide_plevs.EQ.1)) then
              rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidps,varidps',ncidps,varidps
          endif
@@ -1766,6 +1862,18 @@
              print *,'Lecture du guidage sur niveaux mod�le'
              rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidpl,varidap',ncidpl,varidap
          endif
@@ -1773,5 +1881,13 @@
          if (guide_plevs.EQ.2) then
              rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidp,varidp',ncidp,varidp
              if (ncidpl.eq.-99) ncidpl=ncidp
@@ -1780,5 +1896,13 @@
          if (guide_u) then
              rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidu,varidu',ncidu,varidu
              if (ncidpl.eq.-99) ncidpl=ncidu
@@ -1787,5 +1911,13 @@
          if (guide_v) then
              rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidv,varidv',ncidv,varidv
              if (ncidpl.eq.-99) ncidpl=ncidv
@@ -1794,5 +1926,13 @@
          if (guide_T) then
              rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidT,varidT',ncidt,varidt
              if (ncidpl.eq.-99) ncidpl=ncidt
@@ -1801,5 +1941,13 @@
          if (guide_Q) then
              rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidQ,varidQ',ncidQ,varidQ
              if (ncidpl.eq.-99) ncidpl=ncidQ
@@ -1808,5 +1956,13 @@
          if ((guide_P).OR.(guide_plevs.EQ.1)) then
              rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidps,varidps',ncidps,varidps
          endif
Index: /LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90
===================================================================
--- /LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90	(revision 1901)
+++ /LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90	(revision 1902)
@@ -155,15 +155,51 @@
     ncidpl=-99
     if (guide_plevs.EQ.1) then
-       if (ncidpl.eq.-99) rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+       if (ncidpl.eq.-99) then 
+          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier apbp.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_plevs.EQ.2) then
-       if (ncidpl.EQ.-99) rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
+       if (ncidpl.EQ.-99) then 
+          rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier P.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_u) then
-       if (ncidpl.eq.-99) rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier u.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_v) then
-       if (ncidpl.eq.-99) rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier v.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_T) then
-       if (ncidpl.eq.-99) rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier T.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     elseif (guide_Q) then
-       if (ncidpl.eq.-99) rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier hur.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
     endif 
     error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
@@ -1231,4 +1267,6 @@
     INTEGER               :: status,rcode
 
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_init'
 ! -----------------------------------------------------------------
 ! Premier appel: initialisation de la lecture des fichiers
@@ -1241,6 +1279,18 @@
              print *,'Lecture du guidage sur niveaux modele'
              rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidpl,varidap',ncidpl,varidap
          endif
@@ -1248,5 +1298,13 @@
          if (guide_plevs.EQ.2) then
              rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidp,varidp',ncidp,varidp
              if (ncidpl.eq.-99) ncidpl=ncidp
@@ -1255,5 +1313,13 @@
          if (guide_u) then
              rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF 
              rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidu,varidu',ncidu,varidu
              if (ncidpl.eq.-99) ncidpl=ncidu
@@ -1262,5 +1328,13 @@
          if (guide_v) then
              rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidv,varidv',ncidv,varidv
              if (ncidpl.eq.-99) ncidpl=ncidv
@@ -1269,5 +1343,13 @@
          if (guide_T) then
              rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidT,varidT',ncidt,varidt
              if (ncidpl.eq.-99) ncidpl=ncidt
@@ -1276,5 +1358,13 @@
          if (guide_Q) then
              rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidQ,varidQ',ncidQ,varidQ
              if (ncidpl.eq.-99) ncidpl=ncidQ
@@ -1283,5 +1373,13 @@
          if ((guide_P).OR.(guide_plevs.EQ.1)) then
              rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidps,varidps',ncidps,varidps
          endif
@@ -1434,4 +1532,6 @@
     INTEGER               :: i
 
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_init'
 ! -----------------------------------------------------------------
 ! Premier appel: initialisation de la lecture des fichiers
@@ -1444,6 +1544,18 @@
              print *,'Lecture du guidage sur niveaux mod�le'
              rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidpl,varidap',ncidpl,varidap
          endif
@@ -1451,5 +1563,13 @@
          if (guide_plevs.EQ.2) then
              rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidp,varidp',ncidp,varidp
              if (ncidpl.eq.-99) ncidpl=ncidp
@@ -1458,5 +1578,13 @@
          if (guide_u) then
              rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidu,varidu',ncidu,varidu
              if (ncidpl.eq.-99) ncidpl=ncidu
@@ -1465,5 +1593,13 @@
          if (guide_v) then
              rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF 
              rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidv,varidv',ncidv,varidv
              if (ncidpl.eq.-99) ncidpl=ncidv
@@ -1472,5 +1608,13 @@
          if (guide_T) then
              rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidT,varidT',ncidt,varidt
              if (ncidpl.eq.-99) ncidpl=ncidt
@@ -1479,5 +1623,13 @@
          if (guide_Q) then
              rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidQ,varidQ',ncidQ,varidQ
              if (ncidpl.eq.-99) ncidpl=ncidQ
@@ -1486,5 +1638,13 @@
          if ((guide_P).OR.(guide_plevs.EQ.1)) then
              rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
              print*,'ncidps,varidps',ncidps,varidps
          endif
