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).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.