[cdftools] 33/228: JMM cdfnorth_unfold follow on ...

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch master
in repository cdftools.

commit db386899e3ecb1620498c5b170c9477c72b7ed35
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Tue Apr 27 17:34:36 2010 +0000

    JMM cdfnorth_unfold follow on ...
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@309 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfnorth_unfold.f90 | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/cdfnorth_unfold.f90 b/cdfnorth_unfold.f90
index a79f10a..a4557e9 100644
--- a/cdfnorth_unfold.f90
+++ b/cdfnorth_unfold.f90
@@ -191,7 +191,9 @@ CONTAINS
              ij=2*ipivot - ji +2
              zrat= ptab(ij,npjglo-1) / ptab(ji,npjglo-1)
              IF ( ABS(zrat) /= 1. ) THEN
-                PRINT *, 'INCOHERENT value in T point '; stop
+                PRINT *, 'INCOHERENT value in T point ', TRIM(cvarname(jvar)), zrat
+                istatus=closeout(ncout)
+                stop
              ELSE
                 chkisig=zrat
              ENDIF
@@ -204,7 +206,9 @@ CONTAINS
           ij=2*ipivot - ji + 1
           zrat= ptab(ij,npjglo-1) / ptab(ji,npjglo-1)
           IF ( ABS(zrat) /= 1. ) THEN
-             PRINT *, 'INCOHERENT value in U point '; stop
+             PRINT *, 'INCOHERENT value in U point ', TRIM(cvarname(jvar)), zrat
+             istatus=closeout(ncout)
+             stop
           ELSE
              chkisig=zrat
           ENDIF
@@ -216,7 +220,9 @@ CONTAINS
           ij=2*ipivot - ji + 2
           zrat= ptab(ij,npjglo-2) / ptab(ji,npjglo-1)
           IF ( ABS(zrat) /= 1. ) THEN
-             PRINT *, 'INCOHERENT value in V point '; stop
+             PRINT *, 'INCOHERENT value in V point ', TRIM(cvarname(jvar)), zrat
+             istatus=closeout(ncout)
+             stop
           ELSE
              chkisig=zrat
           ENDIF

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git