diff --git a/MNH/set_ref.f90 b/MNH/set_ref.f90
index 092543ce8c214dcb006e156fbf58953dc42e68f0..f20557afd17ec4c0161bb775e0a6c2f54becaf2b 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)
 
 
 !