Changeset 1187 for LMDZ4

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:

• dyn3d/guide_mod.F90 (modified) (2 diffs)
• dyn3dpar/guide_p_mod.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/guide_mod.F90

@@ -1033 +1033 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif
@@ -1216 +1216 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p_mod.F90

@@ -1112 +1112 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif
@@ -1296 +1296 @@
 ! Coordonnee verticale
          if (.not.guide_modele) then
-              varidpl=NCVID(ncidpl,'LEVEL',rcode)
-              IF (rcode.NE.0) varidpl=NCVID(ncidpl,'PRESSURE',rcode)
+              rcode=NF_INQ_VARID(ncidpl,'LEVEL',varidpl)
+              IF (rcode.NE.0) rcode=NF_INQ_VARID(ncidpl,'PRESSURE',varidpl)
               print*,'ncidpl,varidpl',ncidpl,varidpl
          endif