Juan 30/10/2013: add test on size of PRVREF

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