From 971036ad85a523d862a0e75cc22bfc8d95ce75e9 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 30 Oct 2013 11:56:05 +0100
Subject: [PATCH] Juan 30/10/2013: add test on size of PRVREF

---
 MNH/set_ref.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/MNH/set_ref.f90 b/MNH/set_ref.f90
index 092543ce8..f20557afd 100644
--- a/MNH/set_ref.f90
+++ b/MNH/set_ref.f90
@@ -399,8 +399,12 @@ ELSEIF ( CEQNSYS == 'MAE' .OR. CEQNSYS == 'LHE' ) THEN
 END IF
 !
 CALL MPPDB_CHECK3D(ZRHOREF,"SET_REF::ZRHOREF",PRECISION)
+IF ( SIZE(PRVREF) == 0 ) THEN
+print*,"SIZE(PRVREF) == 0 " ; call flush(6)
+ELSE
 CALL MPPDB_CHECK3D(PRVREF,"SET_REF::PRVREF",PRECISION)
-CALL MPPDB_CHECK3D(PRHODJ,"SET_REF::PRHODJ",PRECISION)
+END IF
+!!$CALL MPPDB_CHECK3D(PRHODJ,"SET_REF::PRHODJ",PRECISION)
 
 
 !
-- 
GitLab