Changeset 1187 for LMDZ4/branches


Ignore:
Timestamp:
Jun 18, 2009, 2:03:09 PM (15 years ago)
Author:
jghattas
Message:

correction bug pour mode guide :
NCVID ne renvoit pas le code erreur comme il devrait. J'ai change pour
NF_INQ_VARID qui a le meme fonctionnement mais qui en plus fonctionne
correctement (possibilite de tester le message d'erreur).

Location:
LMDZ4/branches/LMDZ4-dev/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide_mod.F90

    r1186 r1187  
    10331033! Coordonnee verticale
    10341034         if (.not.guide_modele) then
    1035               varidpl=NCVID(ncidpl,'LEVEL',rcode)
    1036               IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
     1035              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
     1036              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
    10371037              print*,'ncidpl,varidpl',ncidpl,varidpl
    10381038         endif
     
    12161216! Coordonnee verticale
    12171217         if (.not.guide_modele) then
    1218               varidpl=NCVID(ncidpl,'LEVEL',rcode)
    1219               IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
     1218              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
     1219              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
    12201220              print*,'ncidpl,varidpl',ncidpl,varidpl
    12211221         endif
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p_mod.F90

    r1177 r1187  
    11121112! Coordonnee verticale
    11131113         if (.not.guide_modele) then
    1114               varidpl=NCVID(ncidpl,'LEVEL',rcode)
    1115               IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
     1114              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
     1115              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
    11161116              print*,'ncidpl,varidpl',ncidpl,varidpl
    11171117         endif
     
    12961296! Coordonnee verticale
    12971297         if (.not.guide_modele) then
    1298               varidpl=NCVID(ncidpl,'LEVEL',rcode)
    1299               IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
     1298              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
     1299              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
    13001300              print*,'ncidpl,varidpl',ncidpl,varidpl
    13011301         endif
Note: See TracChangeset for help on using the changeset viewer.